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ABSTRACT 

This project gives the user of the HP-41 handheld pro- 
grammable calculator a series of programs that give accepta- 
ble results during the preliminary phases of the helicopter 
design process. The project consists of three parts - 

The first part consists of several short programs and 
their subroutine form. These programs and subroutines com- 
pute density altitude, density, disc area, solidity, tip 
velocity, induced velocity, coefficient of thrust, tip loss 
factor, equivalent chord, and ground effect. 

The second part consists of major subroutines. These 
subroutines compute profile power, induced power, climb 
power, parasite power, and total power; equivalent area and 
induced power for a tandem rotor; and data input and change. 

The third part consists of the main programs. These 
programs compute the various power requirements for hovering 

f 

flight, forward (straight and level) flight, vertical flight, 
and forward climbing flight; also tailrotor power, autorota- 
tive flight, and tandem rotor flight. 
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INTRODUCTION 



I . 



A. BACKGROUND 

This project was undertaken to give the user of the HP-41 
Programmable Calculator a series of programs that would give 
acceptable results during the preliminary phases of the heli- 
copter design process. The HP-41 is a handheld programmable 
calculator designed and manufactured by the Hewlett-Packard 
Company of Corvallis, Oregon. This personal computing system 
easily fits into a coat pocket, thus being able to go any- 
where. This, in turn, gives the preliminary design engineer 
a computational versatility and flexibility not previously 
experienced. To date, no known project of this magnitude has 
been attempted with a handheld calculator. 

B . GOALS 

The single goal of this project was to construct a series 
of self-prompting, alpha-numeric programs that could be used 
with acceptable results during the preliminary helicopter 
design process. In doing this, this project supplements the 
theory and computational processes as outlined by Professor 
Donald M. Layton in Aircraft Performance [Ref. 1] . An addi- 
tional projected end use was for utilization by the Aeronau- 
tical Engineering students of the Naval Postgraduate School 
enrolled in the Helicopter Performance and Helicopter Design 
courses . 
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II. APPROACH TO THE PROBLEM 



The basic line of approach used in this project was to 
construct calculator programs consisting mainly of subrou- 
tines. The subroutine is the key ingredient of this effort 
for the following reasons: 

1. The use of subroutines greatly reduces the amount of 
required calculator program memory. Numerous main programs 
utilize the same basic equations and computational techniques 
even though the end results will be different. When these 
processes are organized into subroutine format, the numerous 
main programs can call and execute these common subroutines 
repeatedly, until the desired outputs are calculated for the 
particular flight conditions. For example, program "FORFLT" 
and program "VERFLT" are different in that program "FORFLT" 
will calculate the power requirements for forward (straight 
and level) flight while program "VERFLT" will calculate the 
power requirements for vertical flight. The results will be 
different, yet both main programs will call and execute fif- 
teen identical subroutines where computational techniques 
are the same for both programs. The end result being that 
program memory, i.e. the number of calculator registers re- 
quired, is optimized. 

2. The use of subroutines greatly enhances the ease of 
program editing. Each individual subroutine calculates a 
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single specific function or variable, i.e. rotor disc area, 
rotor solidity, ground effect, density of the air, etc. Per- 
haps the user of these programs does not agree with the 
theory used for calculating ground effect or perhaps the 
user knows of a shorter technique that will greatly reduce 
the required amount of program memory for storage of the sub- 
routine. The user need only edit that particular subroutine 
and no more. Confusion has been minimized, and there is no 
need for massive amounts of program editing. 

These subroutines and this project utilize the basic 
aerodynamic theories of the helicopter, and it is not the 
intention of this project to teach this theory, nor is it 
the intention of this project to teach calculator programming 
operations. The user of these programs is assximed to have a 
basic knowledge of helicopter aerodynamics and it is further 
assumed that the user is proficient with the HP-41 program- 
mable calculator. 
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III. THE SOLUTION 



A. PROGRAM AND SUBROUTINE ORGANIZATION 

The program and subroutine documentation used throughout 
this project exists in six sections. The nature of each of 
these sections is as follows: 

1 . Purpose 

This section gives a brief description of the in- 
tended purpose of the program or subroutine. This section 
will often show a listing of the various program displays 
and outputs. 

2 . Equations 

This section lists the various equations used within 
the program or subroutine. If the program or subroutine 
should call and execute another subroutine, this section 
will not list nor discuss the equations used by the "called" 
subroutine. This section will also list and describe the 
notation used in the equations listed. Whenever applicable, 
units are also listed as part of the notation description. 
The vast majority of the equations used in these programs 
come from Aircraft Performance [Ref. 1] , NACA Report [1235] 
[Ref. 2] , and Aerodynamics of V/STOL Flight [Ref. 3] . 

3 . Flowchart 

This section contains a flowchart which is an out- 
line of the computational process utilized in the program or 
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subroutine. The standard HP-41 flowcharting symbols as out- 
lined in the Hewlett-Packard Owner's Handbook and Program- 
ming Guide [Ref. 4] have been used: 

circles for beginning and ending a pro- 
gram or subroutine 



rectangles to represent the functional 
operations 



diamonds to represent the decision 
processes . 





The rectangle was modified somewhat from the standard HP 
notation in order to visually represent a subroutine: 



modified rectangle to represent subrou- 
tine operation 



4 . Example Problems and User Instructions 

This section represents a series of example problems 
that when executed by the user, will serve to familiarize 
the user with program operation, program displays, required 
calculator key strokes, program notation, program inputs, 
and program outputs. The example problems contain the de- 
sign data of actual operational military helicopters which 
in turn serves to familiarize the user with these aircraft. 

A word of warning must be emphasized. The results or outputs 
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of these programs when compared with actual operational data 
are sometimes amazingly accurate, but at other times, they 
are not. Again, the theory used in computation uses numerous 
assumptions that do not take into account actual flight and 
operational conditions. Therefore, when executing power re- 
quirements, these programs should never be used in lieu of 
the appropriate manufacturer's performance charts or opera- 
tor's manuals. Again, the purpose of these programs is to 
give the preliminary design engineer acceptable figures in 
the preliminary helicopter design process and not to super- 
cede performance charts or operator's manuals. 

5 . Programs and Subroutines Used 

This section lists all of the programs and subrou- 
tines used during the execution of the main program or sub- 
routine. The user must insure that the listed programs and 
subroutines are in program memory before execution of the 
program is attempted otherwise the word "NONEXISTENT" will 
appear in the calculator display as the calculator searches 
for a subroutine or program that cannot be found in the cal- 
culator's program memory. As expected, the program cannot 
and obviously will not be executed. 

6 . Program Listings 

This section contains a listing of the program lines 
of the program or subroutine. In some cases, as in Appendix 
B, both the program and its subroutine version are listed. 

The main programs listed in Appendix D will call and execute 
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many of the major subroutines listed in Appendix C as well as 
the minor subroutines listed in Appendix B. 
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IV. RESULTS 



The results of this programming project are presented in 
Appendices B, C, and D. Appendix B contains many short pro- 
grams and their subroutine form. These programs execute 
simple calculations such as solidity of the rotor system, 
rotor disc area, density of the air, etc. Appendix C con- 
tains major subroutines. These subroutines execute major 
calculations such as induced power, profile power, data in- 
put, tandem rotor equivalent area, etc. Appendix D contains 
the major programs for power required calculations. These 
main programs call and execute many of the minor subroutines 
found in Appendix B and many of the major subroutines found 
in Appendix C. 

The validity of the output of these programs is excellent 
for the intended purpose of preliminary helicopter design 
calculations and estimations. As mentioned previously, the 
idealized theory used does make several assumptions and thus 
certain limitations are imposed upon the results. Some of 
the limitations are listed here: 

1. Symmetric airfoils with zero twist are used through- 
out these programs. All actual helicopters have main rotor 
blades which utilize some degree of twist. This in turn 
will affect the overall lift generation and distribution. 
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2. The streamlining effects of the vertical fin on tail 
rotor power requirements in forward flight were not modeled 
and thus taken into account. 

3. Compressibility effects on the advancing main rotor 
blade and stall effects on the retreating main rotor blade 
were not modeled and thus taken into account. Both of these 
effects will add to the overall horsepower requirements in 
forward flight computations. 

4 . The theory used did not take into account accessory 
losses such as hydraulic pumps, electrical generators, fuel 
pumps, heaters and air conditioners. Nor did the theory take 
into account drive train losses such as gear and transmission 
friction. All helicopter manufacturers will in some form in- 
corporate these losses into their performance charts. 

5 . These programs do not take into account the main 
rotor downwash effects on the helicopter fuselage. This is 
a small horsepower requirement and was neglected here. 

6. These programs do not take into account those real 
world operating conditions that have an overall effect on the 
performance of the helicopter. These conditions include, but 
are not limited to, engine erosion, dirty engine compressor 
blades, dirty and/or dented rotor blades. Again, these pro- 
grams should not be substituted for performance charts and 
operator's manuals. 
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V. CONCLUSIONS AND RECOI-IMENDATIONS 



The user of these programs should work through the exam- 
ple problems given in the various program and subroutine 
listings. In doing so. Table I, Appendix A, An Alphabetical 
Listing of All Calculator Displays and Their Intended Mean- 
ing, will become a valuable aid. Table II, Appendix A, Pro- 
gram and Subroutine Storage Requirements , will also become 
useful in that it readily assists the user in keeping track 
of the calculator memory required and remaining. And, if it 
becomes necessary. Table III, Appendix A, Storage Register 
Utilization, will assist the user in the program editing 
process in that it lists the program registers used and their 
contents; 32 program registers have been used. The user 
should insure that the calculator has been sized for 031 be- 
fore attempting execution of the programs. 
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APPENDIX A 



QUICK REFERENCE TABLES 

The tables in this appendix will serve the user of this 
project as a source of quick reference. Table I is an alpha- 
betical listing of all the possible calculator displays and 
their intended meanings. Table II lists all of the programs 
and subroutines and their respective storage requirements 
both in terms of registers required and bytes required. This 
table readily assists the user in keeping track of the cal- 
culator memory required and remaining. Table III lists the 
storage registers and their utilization. This table will 
assist the user in the program editing process. 
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TABLE I 



AN ALPHABETICAL LISTING OF ALL CALCULATOR 
DISPLAYS AND THEIR INTENDED MEANINGS 



Display 


Explanation 


Formula 

Notation 


AREA= 


Answer; rotor disc area in ft^ 


^D 


a=? 


Prompt: fraction of the radius 
where the taper starts on a 
tapered rotor blade (decimal 
value ) 


a 


B= 


Answer; tip loss factor 
(decimal value) 


B 


II 

XI 


Prompt; number of blades in 
the rotor system 


b 


BOTH 


indicates calculator is about 
to execute combination of ver- 
tical flight and horizontal 
flight (foirward climbing 
flight) 




C=? 


Prompt; chord length of the 
rotor blade in ft 


C 


CdO=? 


Prompt; average profile drag 






coefficient 




CE= 


Answer: equivalent chord in ft 


Ce 


CHANGE? 


Prompt; asks if the original 
input data now needs to be 
changed. 1 is Yes, 0 is No 




C RV b R W 


chord-rotational velocity- 


C 




number of blades-radius-weight , 


Q 




press key on calculator key- 


b 




board directly beneath the 


R 




variable in need of change 


W 


o 

II 


Answer; coefficient of thrust 


^T 


co=? 


Prompt: root chord in ft 


n 

''o 



20 



TABLE I 
(continued) 



Cl=? 


Prompt: tip chord in ft 


Cl 


d=? 


Prompt; distance between the 
rotor shafts of a tandem rotor 
helicopter in ft 


d 


DA= 


Answer; density altitude in ft 


hp 


DA=? 


Prompt; density altitude in ft 


‘'p 


d(HOR. GLIDE) = 


Answer; horizontal distance 
travelled on the ground at the 
forward autorotative flight 
velocity for minimum rate of 
descent in ft 


d 


D.L.= 


Answer; disc loading of the 
rotor system in Ibs/ft^ 


D.L. 


D.N.= 


Answer: density of the air 
lb-sec^ or slug 

ft** ft^ 


P 


F= 


Answer: a non-dimensional 
coefficient used in autoro- 
tation calculations 


F 


FOR ONLY? 


Prompt: execute forward 
flight portion of program 
only? 1 is Yes, 0 is No 




FOR V=? 


Prompt: forward flight 
velocity in kts 


^f 


F.P.A. (FF) =? 


Prompt: equivalent flat plate 
area for forward flight 
calculations in ft^ 


ff 


F.P.A. (VF) =? 


Prompt: equivalent flat plate 
area for vertical flight 
calculations in ft^ 


i- 

V 


GE=0 


Answer: ground effect on the 
induced power is equal to zero 


— 
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TABLE I 
(continued) 



GE=0 ,RATI0=1 


Answer; ground effect on the 
induced power is equal to zero, 
therefore the ground effect 
ratio is equal to 1 




11 

•o 


Prompt: height of the rotor 
system above the ground in ft 


h 


HOVER? 


Prompt; execute hovering 
flight portion of program only? 
1 is Yes, 0 is No 


““ 


LCM=? 


Prompt; lift coefficient mul- 
tiplier in drag coefficient 
terms 


Kx 


L(TAIL) =? 


Prompt: tail length; distance 
from center of main rotor 
shaft to center of tailrotor 
shaft in ft 




M(TIP) = 


Answer: Mach Number at the 
tip of the advancing rotor 
blade 


Mt 


PA=? 


Prompt; pressure altitude 
in ft 




PC= 


Answer: climb power in 
horsepower 


^C 


PI= 


Answer: induced power in 
horsepower 


P. 

1 


PI (TL) = 


Answer: induced power with 
tip losses in horsepower 


^i (TL) 


PI (TL+GE) = 


Answer: induced power with 
tip losses plus ground 
effect in horsepower 


^i (TL+GE) 


PO= 


Answer: profile power in 
horsepower 


P 

o 


PO(TDM) = 




Answer; profile power for a 
tandem rotor helicopter in 
horsepower 


p 

o 
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TABLE I 
(continued) 



pp= 


Answer: parasite power in 
horsepower 


P 

P 


PT(ACFT)= 


Answer: total power for the 
aircraft in horsepower 


'’t 


PT(MR) = 


Answer: total power for the 
main rotor in horsepower 


Pt 


PT(TDM)= 


Answer: total power for a 
tandem rotor helicopter 
in horsepower 


^T 


PT(TR) = 


Answer: total power for the 
tailrotor in horsepower 




R=? 


Prompt: radius of the rotor 
system in ft 


R 


RAT 10= 


Answer: ground effect ratio 


- 


REC=? 


Prompt; is the rotor blade 
of rectangular planforra? 

1 is Yes, 0 is No 




RV=? 


Prompt: rotational velocity 
of the rotor system in 
radians/second 


n 


S0LID= 


Answer: the solidity of the 
rotor system 




T=? 


Prompt: ambient temperature 
in degrees Celsius 


T{^C) 


TR DATA 


the calculator is now ready 
to prompt for the tailrotor 
data input 




U= 


Answer: the advance ratio 


y 


VERT ONLY? 


Prompt: execute vertical 
flight portion of program 
only? 1 is Yes, 0 is No 


— 


VERT V=? 


Prompt; vertical velocity 
in ft/min 


V 

V 
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TABLE I 
(continued) 



VF(MIN.R.O.D.)= 


Answer: forward autorotative 
flight velocity for minimum 
autorotative rate of descent 
in kts 


^f 


VI= 


Answer: induced velocity in 


V. 




ft/sec 


1 


VT= 


Answer: velocity at the rotor 
tip in ft/sec 




W= 


Answer: vertical autorotative 


V 




velocity in a vertical auto- 
rotation in ft/min 


V 


W(MIN.R.O.D.) = 


Answer: vertical autorotative 
velocity (ft/min) at the for- 
ward autorotative flight vel- 
ocity for minimum autorotative 
rate of descent 


V 

V 


W=? 


Prompt: weight of the heli- 
copter in lbs 


W 
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TABLE II 



PROGRAM AND SUBROUTINE 
STORAGE REQUIREMENTS 





Subroutine 


Program 


Subject Area 


Name 


Reg 


Byte 


Name 


Reg 


Byte 


Appendix B; 














Density 

Altitude 


- 


- 


- 


"DA" 


12 


84 


Density 


"DN " 


7 


48 


"DENSITY " 


4 


27 


Disc Area 


"AD" 


2 


14 


"AREA" 


4 


32 


Solidity 


”SD" 


3 


18 


"SOLID" 


6 


46 


Tip Velocity 


’•VT ” 


2 


13 


"VTIP" 


6 


37 


Induced 

Velocity 


"VI " 


3 


19 


"VIND" 


6 


44 


Coefficient 
of Thrust 


”CT" 


3 


18 


"CTHRUST" 


8 


58 


Tip Loss 
Factor 


" tl " 


3 


19 


"TIPLOSS" 


10 


67 


Equivalent 

Chord 


- 


- 


- 


"ECHORD" 


10 


70 


Groiind Effect 


" GE " 


8 


59 


"GEFFSCT " 


10 


71 


Appendix C 














Coefficients 


”CF” 


7 


54 


- 


- 


- 


Vertical Com- 
ponent of 
Induced 
Velocity 


"VC " 


24 


16 8 








Data Input 


"DATA 


11 


81 


- 


- 


- 


Change of Data 


”CG" 


17 


121 


- 


- 


- 
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TABLE II (continued) 



Subject Area 


Name 


Reg 


Byte 


Name 


Reg 


Byte 


Profile Power 


"PO” 


9 


62 


- 


- 


- 


Induced Power 


"PI" 


16 


112 


- 


- 


- 


Climb Power 


npcit 


5 


31 


- 


- 


- 


Parasite Power 


*» pp ** 


6 


41 


- 


- 


- 


Total Power 


” PT ** 


5 


34 


- 


- 


- 


Equivalent 
Area Tandem 
Rotor 


"AE " 


7 


47 




— 


— 


Induced Power 
Tandem Rotor 


” P I T ** 


15 


10 8 


- 


- 


- 


Appendix D 














Hover 


- 


- 


- 


"HOVER" ; 


10 


66 


Forward Flight 


- 


- 


- 


"FORFLT" ! 


19 


140 


Vertical Flight 




- 


- 


"VERFLT" 


19 


13 3 


All Flight 
Regimes 


- 


- 


- 


"FLIGHT" 


30 


205 


Tailrotor 


- 


- 


*- 


"TR" I 


40 


281 


Autorotation 


- 


- 


- 


"AUTO " 


32 


221 


Tandem Rotor 


- 


- 


- 


"TANDEM" 


24 


16 8 


Checks 


- 


- 


- 


"CHECKS" 


14 


96 
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TABLE III 



STORAGE REGISTER UTILIZATION 



Storage 

Register 


Stored Quantity 


00 


blank - used for computations 


01 


Cg - the root chord of the rotor blade (ft) 


02 


- the tip chord of the rotor blade (ft) 


03 


a - fraction of radius where the taper starts 
on a tapered rotor blade (decimal value) 


04 


C or C - the chord or equivalent chord 
® length of the rotor blade (ft) 


05 


R - the radius of the rotor system (ft) 


06 


b - the number of blades in the rotor system 


07 


Cj - the average profile drag coefficient 
'-^o 


08 


fi - the rotational velocity of the rotor 
system (radians/sec) 


09 


h - rotor system height above the ground (ft) 


10 


W - weight cf the helicopter (lbs) 


11 


p - density of the air lb-sec^ or slug 

ft** ft^ 


12 


Aj^ - rotor disc area (ft^) 


13 


- velocity of the rotor tip (ft/sec) 


14 


Cip - coefficient of thrust 


15 


B - tip loss factor 


16 


^i(TL) ~ induced power with tip losses 
(horsepower) 


17 


h/D - height -r diameter of rotor system used 
for ground effect calculations 
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TABLE III 
(continued) 



18 


^i(TL+GE) ~ induced power with tip losses 

' plus ground effect (horsepower) 


19 


Gj. - the solidity of the rotor system 


20 


v^ - induced velocity (ft/sec) 


21 


- profile power (horsepower) 


22 


blank - used for computations 


23 


- vertical velocity (ft/sec) 


24 


f - equivalent flat plate area for vertical 
^ flight calculations (ft^) 


25 


- forward velocity (ft/sec) 


26 


f^ - equivalent flat plate area for forward 
^ flight calculations (ft^) 


27 


Vj_ - vertical component of the induced 
^ velocity through the rotor system for 

forward climbing flight (ft/sec) 


28 


Pp - parasite power (horsepower) 


29 


P^ - climb power (horsepower) 


30 


P,p - total power (horsepower) 


31 


indirect storage register - used by all the 
main programs in conjunction with Subroutine 
"CG" 



note - Subroutine ”CF" , Subroutine ”VC", and Program "TR” 
contain the only deviations from the above table in storage 
register utilization. This is done to optimize calculator 
storage requirements. The appropriate program or subroutine 
listing gives a complete explanation for the appropriate 
deviation. The calculator should be sized for 032. 
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APPENDIX B 



MINOR PROGRAMS AND SUBROUTINES 



This appendix consists of several short programs and 
their subroutine form. These programs compute density alti- 
tude, density, disc area, solidity, tip velocity, induced 
velocity, coefficient of thrust, tip loss factor, equivalent 
chord, and ground effect. The subroutines will be called 
and executed by the main programs in appendix D. 
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DENSITY ALTITUDE 



1. PURPOSE 



This program computes the density altitude, h , in feet 



when given the pressure altitude, h , in feet and the tern- 

P 

perature in degrees Celsius. The equation used for this pro- 
gram is based upon the standard atmosphere and described in 
NACA Report (1955) No. 1235 [Ref. 2]. This equation and 
thus this program is accurate to an altitude of 36,089 feet 
(isothermal level) . 

2 . EQUATIONS 



P 



( 1 - Kjh ) 5 . 2 5 6 1 
P 



T 



( 1 ) 




T 



ssl 



vs^ere: 



T is the ambient temperature (absolute) 

Tggj_ is the standard sealevel temperature (absolute) 

hp is the pressure altitude (feet) 

h is the density altitude (feet) 

P 

Ki is a constant equal to 6.875 X 10~® 
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3. FLOWCHART 




4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 
The altimeter of a UH— 60A currently indicates a pressure 
altitude of 1600 feet and the O.A.T. (Outside Air Tempera- 
ture) gauge indicates 24° Celsius. What is the density 
altitude? 

Keystrokes: Display: 

[XEQ] [ALPHA] DA [ALPHA] PA=? 

1600 [R/S] T=? 

24 [R/S] DA=3,006.48 

note - do not touch the calculator and proceed immediately 

to the next problem 

The same UH-60A is now sitting On the deck of a ship. The 
altimeter indicates 0 feet and the O.A.T. gauge indicates 15°. 
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What is the density altitude? 



Keystrokes : 
[R/S] [R/S] 
0 [R/S] 

15 [R/S] 



Display : 
PA=? 



T=? 

DA=0 .00 



note 



(standard day sea 
level conditions) 

pushing the run stop [R/S] button twice will reposi 
tion the calculator to the top of the program 



5. PROGRAMS & SUBROUTINES USED 
"DA” 

6. PROGRAM LISTINGS 



81^LBL "Dfi" 


16 


o o o Is: 


02 




17 


* 


03 


PROMPT 


1 3 


. 23496 


04 


• 3 T 5 E 


19 


YTX 


i6 




20 


CHS 


05 


:+c 


i 


1 


06 


CHS 


•O "T" 

W. Cp* 


+ 


07 


1 




6.375 E 


0S 


+ 


06 




09 


5. 2561 


24 


--■■■ 


1 0 


Y-tX 


25 


F I X 2 


1 1 


"T=?" 


26 




12 


PROMPT 


27 


HRCL X 


13 


273. 16 


O O 


fiVIEW 


14 


+ 


29 


END 


15 
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DENSITY 



1. PURPOSE 

This program/subroutine computes the density of the air 
at a given altitude. The equation used for this calculation 
is based upon the standard atmosphere and described in NACA 
Report No. 1235 [Ref. 2] . This equation and thus this pro- 
gram is accurate to an altitude of 36,089 feet (isothermal 
level) . This program is therefore considered sufficient for 
all computations using density, p, here and in succeeding 
programs . 



2. EQUATIONS 



= Pssl [l - ] 



4.2561 



( 2 ) 



where ; 



is density of the air at standard sea 

level conditions which is equal to 



0.0023769 



lb *sec^ 
fF^ 



or 



slu 



ft 






_6 



Ki is a constant equal to 6.875 X 10 
h is the density altitude (ft) 
p is the density of the air at level h 
with the input of known values, the equation to be pro- 
grammed now becomes: 

-| 4 . 2 5 6 1 



p = 0.0023769 



1 - (6.875 X 10"®) (h) 



(3) 
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3 . FLOWCHART 




4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

Find the density, p, at a density altitude, D.A., of 
1000 feet. 



Keystrokes: Display; 

[XEQ] [ALPHA] DENSITY [ALPHA] D.A.=? 

1000 [R/S] DN=0. 0023081 

note - do not touch the calculator and proceed immediately 

to the next problem 

Find the density, p, at a density altitude, D.A., of 
5283 feet. 
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'!lf “If 


\m 


ifcA-- 

- ’ W* ■ 

ii!^‘-^^^pi!8B!P’ 


: ,,>p! 


fc ^ ’I;* r"' ^ 


■/c^ 

!*■• -fTt-r ““ 

&. ’ w39W.SmWsWwvi’* *' 







Keystrokes : 
[R/S] [R/S] 
5,283 [R/S] 



Display : 
D.A.=? 



DN=0. 0020306 

note - pushing the run stop [R/S] button twice will reposi- 
tion the calculator to the top of the program 

Find the density, p, at a density altitude, D.A., of 
0 feet (sea level) . 



Keystrokes: Display: 

[R/S] [R/S] D.A.=? 



0 [R/S] 



DK=0 .0023769 

(standard day sea 
level conditions) 



5. PROGRAMS & SUBROUTINES USED 

” DENSITY " 

"DN ” 



6. PROGRAM LISTINGS 



PROGRAT4 


SUBROUTINE 


01+LBL "DEN 


0 1-*-LBL "DN 


I TV" 


02 


” D . fi . = ? 


02 ><EQ "BN" 


03 


PROMPT 


03 FIN 7 


04 


6. 375 E 


04 "DH=” 


06 




05 flRCL N 


05 




06 fiVIEW 


06 


CHS 


07 END 


07 


1 




GiS 


+ 




09 


ENTERT 




10 


4.2561 




1 1 


Y-tN 




12 


. 002376 




13 






14 


STO 1 1 




15 


END 
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DISC AREA 



1. PURPOSE 

This program/subroutine calculates the disc area of a 
rotor system when given the radius. The disc area is the 
total area enscribed by the plane of the rotor without 
coning. 

2 . EQUATIONS 

Aj^ = ttR2 (4) 

where : 

Aq is the Disc Area (ft^) 

R is the rotor system radius (ft) 




S6 



"^.-;a .Ksi’:i S.'-f 




4. EXAT4PLE PROBLEMS AND USER INSTRUCTIONS 



The rotor radius of the UH-60A Blackhawk is 26.83 feet 
Find the Disc Area. 



Keystrokes : 

[XEQ] [ALPHA] AREA [ALPHA] 
26.83 [R/S] 

The rotor radius of the AH- 
the Disc Area. 

Keystrokes : 

[R/S] [R/S] 

24.00 [R/S] 



Display: 

R=? 

AREA=2, 261. 47 
r SeaCobra is 24.00 feet. 

Display: 

R=? 

AREA=1, 809.56 



5 . PROGRAI4S AND SUBROUTINES USED 



"AREA" 

"AD" 



6. PROGRAM LISTINGS 



PROGRAM 


SUBROUTINE 


01+LBL "fiRE 


01 


+ LBL "fiB 


i 




02 


RCL 05 


02 


•• R = 7 ■■ 


03 


XT 2 


03 


PROMPT 


04 


PI 


04 


STO 05 


05 




05 


XEQ " fiD ■' 


06 


STO 12 


06 


FIX 2 


07 


END 


07 


" fiF’Efl= •• 






0S 


OR CL X 






09 


fiVIEW 






1 0 


END 







Find 
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SOLIDITY 



1. PURPOSE 

This program/subroutine computes solidity, the frac- 

tion of the disc area that is composed of blades, i.e. solid. 



2 . EQUATIONS 

^ _ bcR = be 

^ ■■■ -ITT 



(5) 



where: 



a is the solidity of the rotor system 
b is the number of rotor blades in the rotor system 
R is the radius of the rotor system (ft) 
c is the chord length of the rotor blade (ft) 



3 . FLOWCHART 
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4, SAI4PLE PROBLEMS AND USER INSTRUCTIONS 



Find the solidity, Oj., of the aft rotor system on the CH— 46E 
Sea Knight (note - the fore and aft rotor systems both have 
the same dimensions) . 

R = 25.50 ft 
c = 1.5625 ft 
b = 3 



Keystrokes : 


Display : 


[XEQ] [ALPHA] SOLID [ALPHA] 


b=? 


3 [R/S] 


C=? 


1.5625 [R/S] 


R=? 


25.50 [R/S] 


SOLID=0 .05851 



Find the solidity, a^, of the main rotor system of the 
CH— 54A Skycrane. 

R = 36.00 ft 
c = 1.972 ft 
b = 6 



Keystrokes : 


Display : 


[R/S] 


b=? 


6 [R/S] 


C=? 


1.972 [R/S] 


R=? 


36.00 [R/S] 


SOLID=0 .10462 
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5. 



PROGRAMS & SUBROUTINES USED 



"SOLID" 

"SD" 



6. PROGRAM LISTINGS 
PROGRAM 



SUBROUTINE 



01+LBL "SOL 


0 1 ♦ 


LBL 




ID " 




02 


RCL 


06 


02 


-b = ?" 


03 


RCL 


04 


03 


PROMPT 


04 






04 


STO 06 


05 


RCL 


05 


05 


••C = ?" 


06 






06 


PROMPT 


07 


PI 




07 


STO 04 


0S 






03 


"R=?" 


09 


STO 


19 


09 


PROMPT 


1 0 


END 




1 0 


STO 05 








1 1 


>4EQ "SD" 








12 


FIX 5 








13 


"SOLID=" 








14 


PIRCL X 








15 


flVIEW 








16 


END 
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TIP VELOCITY 



1. PURPOSE 

This program/subroutine computes the tip velocity of the 
rotor blade. The tip velocity, V^, is the product of the 
rotational velocity, H, and the rotor radius, R. 

2. EQUATIONS 

= QR (6) 

v/here : 

is the velocity of the rotor tip (ft/sec) 
n is the rotational velocity (radians/sec) 

R is the rotor radius (ft) 
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4. 



SAMPLE PROBLEMS AND USER INSTRUCTIONS 



The rotor radius of a CH-53D Sea Stallion is 36.11 feet 



and the normal rotational velocity is 
Find the tip velocity. 


19.37 radians/sec. 


Keystrokes : 


Display : 


[XEQ] [ALPHA] VTIP [ALPHA] 


R=? 


36.11 [R/S] 


RV=? 


19.37 [R/S] 


VT=699.45 


The rotor radius of an AH-64 is 24.00 


feet and the normal 



rotational velocity is 30.26 radians/sec. Find the tip 
velocity . 



Keystrokes : 


Display : 


[-R/S] 


R=? 


24 [R/S] 


II 

> 


30.26 [R/S] 


VT=726 .24 


note - to convert RPM to radians/sec, 


divide by 9.55 


5. PR0GRAT4S & SUBROUTINES USED 

"VTIP" 

"VT" 
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ii 







6. PROGRAM LISTINGS 



PROGRAM 


SUBROUTINE 




01^LBL "VTI 


01 ♦LBL 


•• VT 






02 RCL 


03 


02 


" R — ■?' " 


03 RCL 


05 


03 


PROMPT 


y 4 




04 


STO 0-5 


05 STO 


13 


05 


"RV=?" 


06 END 




06 


PROMPT 






07 


STO 0S 






03 


><EQ -VT" 






09 


FIX 2 






1 0 


■■ VT=- 






1 1 


ORCL X 






X 


nviEw 






13 


END 
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INDUCED VELOCITY 



1. PURPOSE 

This program/subroutine computes the induced velocity, 
v^, the total inflow velocity through the rotor system 
during hover. 

2. EQUATIONS 



V . 



1 



T 



% 



2p*A 



D 



(7) 



where ; 

v^ is the induced velocity (ft/sec) 
p is the density of the air | lb*sec^ 

L “ft** . 

Aj^ is the rotor disc area (ft^) 

T is the thrust which is equal to the weight, W (lbs) 
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3 . FL0V7CHART 





4. EXAMPLE PROBLEMS AtJD USER INSTRUCTIONS 



Find the induced velocity, of the main rotor system of 

a hovering SH-2F LA24PS under the following conditions: 

DA = 0 (sea level) 

W = 11,300 lb 
R = 22.0 ft 

note - insure that Subroutines ”AD" and "DN" are in program 
memory 

Keystrokes: Display: 

[XEQ] [ALPHA] VIND [ALPHA] 
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W=? 



11,300 [R/S] 
22.0 [R/S] 

0 [R/S] 



R=? 



D.A.=? 

VI=39 .54 

Find the induced velocity, , of the main rotor system o 
a hovering CH-54A Skycrane under the following conditions 
D.A. = 2000 ft 
R = 36 ft 

W = 42,500 (maximum gross weight) 



Display : 
W=? 

R=? 

D.A.=? 
VI=48 .26 

5. PROGRAMS & SUBROUTINES USED 

"VIND" 

"VI " 

"AD" 

"DN" 



Keystrokes : 
[R/3] 

42,500 [R/S] 
36 [R/S] 
2,000 [R/S] 
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i-k i-k H* !--■ © iS O ® O 'S o © 

'in 4i‘ w ro © '•ii' © ■'J 'T> 'in -fr il-.! ro 



6. PROGRA!4 LISTINGS 



PROGRAiM 



SUBROUTINE 



01+LBL "VIH 
D" 

w=? •• 

PROMPT 

STO 10 
•* ^ ** 

PROMPT 
STO 05 
XEQ "RD" 
XEQ "BN” 
XEQ “VI" 
FIX 2 
•• V I = •• 
RRCL X 
RVI EW 
END 



01^LBL 


It 1 Ji 


02 


RCL 


1 0 


03 






04 






05 


RCL 


1 1 


06 






07 


RCL 


i 'Z- 


y 


,*r 

✓ 




09 


SORT 




10 


STO 


20 


1 1 


END 
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COEFFICIENT OF THRUST 



1. PURPOSE 

This program/subroutine computes the coefficient of 
thrust for a given rotor system. The coefficient of thrust 
is a non-dimensional coefficient established to facilitate 
computations and comparisons. [Ref.l] 

2 . EQUATIONS 



Ct - 



( 8 ) 



"D 



P-V, 



where : 



is the coefficient of thrust (non-dimensional) 



Ap is the disc area (ft^) 



V 



^ is the tip velocity (ft/sec) 



is the density of the air 



lb • sec' 
ft"^ 



T is the thrust which is equal to the v;eight, W (lb) 
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3 . FLOWCHART 




4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

Find the coefficient of thrust, C^, for a UH-lH Iroquois 
operating under the following conditions; 

N = 305 RPM Q = 31.94 radians/sec 
D.A. = 1600 ft 
W = 8400 lbs 
R = 24.09 ft 
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Keystrokes : 


Display; 


[XEQ] [ALPHA] CTHRUST [ALPHA] 


W=? 


8,400 [R/S] 


R=? 


24.09 [R/S] 


RV=? 


31.94 [R/S] 


D.A.=? 


1,600 [R/S] 


CT=0 .0034320 


Find the coefficient of thrust, C^, 
under the following conditions: 


for an OH-6A operating 



M = 470 RPM -»• n = 49.21 radians/sec 
D.A. = 4000 ft 
W = 2500 lb 
R = 13.165 ft 



Keystrokes ; 


Display ; 


[R/S] 


W=? 


2,500 


R=? 


13.165 


II 

> 


49.21 


P. 

11 

• 

• 

Q 


4,000 


CT=0 .0051824 


5. PROGRAMS & SUBROUTINES USED 
"CTHRUST" 

H ^rp II 

"DN " 

"AD " 

"VT" 
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6 . PROGRAM LISTINGS 



PROGRAM 



01-^LBL "CTH 
RUST" 

02 "W=?" 

03 PROMPT 

04 STO 10 

05 ”R=?" 

06 PROMPT 

07 STO 05 

08 •■RV = ?" 

09 PROMPT 

10 STO 03 

11 KEQ "DN" 

12 XEQ "fiD" 

13 XEQ "VT” 

14 XEQ "CT" 

15 FIX 7 

16 •• C T = " 

17 fiRCL X 
13 fiVIEW 
19 END 



SUBROUTINE 



0 1 ♦ 


LBL 


" C T 


02 


RCL 


10 


0 3 
04 


RCL 


1 1 


05 

06 


RCL 


12 


0 7 
0 S 
0 9 


RCL 

Xt2 


13 


1 0 
1 1 


STO 

END 


14 
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TIP LOSS FACTOR 



1. PURPOSE 

This program/sub routine computes the tip loss factor, B. 
Tip vortices, at the tip of the rotor blades, tend to despoil 
the pressure difference at the tips and thereby reduces the 
lift at the tips. The extent of these losses depends upon 
the rotor blade loadings, and number of blades. Numerous 
theories exist. The theory used in this subroutine is an 
approximation of the tip loss factor made by Prandtl and 
Betz. [Ref. 1] After the tip loss factor, B, has been com- 
puted in the subroutine and returned to the main programs 
used later, the induced power will change in accordance 
with the following equation: 




where : 

P. is the induced power with tip losses 
^TL 

Pj_ is the induced power 
3 is the tip loss factor 



(9) 



2 . EQUATIONS 



B = 1 - 



>^ 20 ^ 

b 



(10) 



52 



where ; 



is the coefficient of thrust 
b is the number of rotor blades 
B is the tip loss factor 



3 . 



FLOWCHART 
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4. exa:iple problems and user instructions 



Find the tip loss factor, B, for an 0H-6A Cayuse operating 
under the following conditions: 

N = 470 RPM -*■ n = 49.21 radians/sec 
D.A. = 5,000 ft 
W = 2,150 lbs 
R = 13.165 ft 
b = 4 



Keystrokes : 


Display; 


[XEQ] [ALPHA] TIPLOSS [ALPHA] 


W=? 


2150 [R/S] 


R=? 


13.165 [R/S] 


RV=? 


49.21 [R/S] 


b=? 


4 [R/G] 


D.A.=? 


5000 [R/S] 


B=0 .9760 



Find the tip loss factor, B, for the same helicopter in the 
above problem, only this time use the maximum gross weight 

of W = 2550 lbs. 



Keystrokes : 
[R/S] 

2550 [R/S] 
13.165 [R/S] 



Display; 

W=? 

R=? 

RV=? 



54 



49.21 [R/S] 
4 [R/S] 

5000 [R/S] 



b=? 

D.A.=? 

3=0.9739 



5. PROGRAI4S & SUBROUTINES USED 

"TIPLOSS" 

”TL" 

"DN" 

"AD " 

”VT" 

"CT " 



6. PROGRAM LISTINGS 



PROGRAM 



SUBROUTINE 



01^LBL "TIP 


0 1 ♦LBL 


TL 


LOSS 


’ at 

1 


02 


RCL 


14 


02 


•• W=?" 


03 






03 


PROMPT 


04 






04 


STO 1 0 


05 


SORT 




05 


"R = ?" 


06 


RCL 


06 


06 


PROMPT 


07 






07 


STO 05 


08 


CHS 




03 


•• R V = 7 •• 


0 9 


1 




09 


PROMPT 


1 0 


+ 




10 


STO 


1 1 


STO 


15 


1 1 


^ « o •• 


12 


END 





12 PROMPT 



13 


STO 


06 


14 


XEQ 


"DN" 


15 


XEQ 


” ft D " 


1 6 


XEQ 


■■ VT •• 


17 


XEQ 


C T " 


13 


XEQ 


" TL " 


19 


FIX 


4 


20 


• • •• 




21 


QRCL 


X 


22 


fiVIEW 


23 


END 
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EQUIVALENT CHORD 



1. PURPOSE 

This program is also used as a subroutine by the main 
programs. This program computes the equivalent chord, C^, 
for a tapered rotor blade. A tapered rotor blade (the 
chord at the tip less than the chord at the root) has less 
tip loss effect due to the smaller surface area over which 
the losses may occur; this is the primary reason for taper- 
ing the tips of the rotor blades. [Ref. 1] 

2 . EQUATIONS 

The calculation for equivalent chord for thrust deter- 
minations has reduced to the following figure and equation: 



I 

t 




FIGURE 1 

Tapered Rotor Blade 



C 

e 



Cl + 



r Co - Cl 



(1 - a") 



1 - a 



( 11 ) 
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where : 

C is the equivalent chord (ft) 
e 

Cq is the root chord (ft) 

Cl is the tip chord (ft) 

a is the fraction of radius where the taper starts 

(decimal value) 

note - when a = 0, the blade has a linear taper from the 

root to the tip. When a = 1, the blade is completely 
rectangular, and = C 



3 . FLOWCHART 
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4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

Find the equivalent chord, C^, for a tapered rotor blade 
with the following dimensions: 

Co = 1.6 ft 
Cl = 0.8 ft 
a = .75 



Keystrokes: Display: 

[XEQ] [ALPHA] ECHORD [ALPHA] C0=? 

1.6 [R/S] Cl=? 

0.8 [R/S] a=? 

.75 [R/S] CE=1.347 



Find the equivalent chord, C^, for a tapered rotor blade 
with the following dimensions: 

Co = 1.0 ft 
Cj = 0 .9 ft 
a = .9 

Keystrokes : 

[R/S] [R/S] 

1 [R/S] 

.9 [R/S] 

.9 [R/S] 



Display: 

C0=? 

Cl=? 

a=? 

CE=0 .986 
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5 . PROGRAI-IS & SUBROUTINES USED 
"ECHORD” 



6. PROGRAT4 LISTINGS 



PROGRAM 



Ol^LBL 


■■E 


iRD- 






02 


■■ C 0 = 


O ■» 


03 


PROMPT 


04 


STO 


01 


05 


C 1 = 


o »■ 


0 6 


PROMPT 


07 


STO 


02 


0S 


'■ 3 = ? ■' 


09 


PROMPT 


10 


STO 


03 


1 l^LBL 


"E 


12 


RCL 


03 


13 


ENTERT 


14 


4 




15 






1 6 


CHS 




17 


1 




IS 


+ 




19 


RCL 


0 1 


20 


ENTERT 


21 


RCL 


92 




— 




y; 


:4c 




24 


RCL 


03 


25 


CHS 




26 


1 




27 


+ 




»— * 


y 




29 


4 




30 






31 


RCL 


02 


3 2 


+ 




's "7 


FIK 




34 


■•CE = 


•• 


35 


fiRCL 


V 



37 STOP 
3S END 
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GROUND EFFECT 



1. PURPOSE 

This program/subroutine computes the ground effect ratio 
?/P^„„, as a function of the ratio of the rotor system 
height above the ground to the diameter of the rotor system. 
[Ref. 1] FIGURE 2 is a graph which shows the ratio of power 
required to hover in-ground-effect to that required to hover 
out-of-ground-ef feet for the average helicopter. This curve 
was obtained as the best fit to considerable amounts of test 
data on both single and tandem rotor helicopters. [Ref. 3] 




^cTpr ^e!grt 

Gicrrete' 



FIGURE 2 

Ground Effect Curve [Ref. 3] 

2. EQUATIONS 

A curve fitting equation for the plot of FIGURE 2 re- 
sults in the following equation: 
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G.E. 

RATIO 



P 

p 

OGE 



where : 



-0 .12 76 (h/D) '* + 0.7080 (h/D)^ - 1.4569 (h/D)^ 



+ 1.3432(h/D) + 0.5147 



( 12 ) 



h is the height of the rotor system above the 
ground (ft) 

D is the diameter of the rotor system (ft) 

P is the power in-ground-effect 
Pqg 2 is the power out-of-ground effect 
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4. EXA*MPLE PROBLEMS AIJD USER INSTRUCTIONS 



The rotor radius of an SH-3H is 31.0 ft. It is currently 
hovering above the deck of the antisubmarine carrier 



York town with the rotor system 


24.33 ft above the deck 


(wheels 10 ft above the deck) . 
ratio? 


What is the ground effect 


Keystrokes : 


Display : 


[XEQ] [ALPHA] GEFFECT [ALPHA] 


H=? 


24.33 [R/S] 


R=? 


31 [R/S] 


RATIO=0 .8572 



The rotor radius of an AH-lS Cobra is 22.0 ft. It is moving 
into a holding position behind and just below the top of 
some tall cover with the rotor system 70.0 ft above the 
ground (skids 58.0 ft above the ground) . What is the 



ground effect ratio? 




Keystrokes ; 


Display : 


[R/S] 


H=? 


70 [R/S] 


R=? 


22 [R/S] 


GE=0 ,RATI0=1 



note - the Cobra is hovering out of ground effect 

5. PROGRAMS & SUBROUTINES USED 

"GEFFECT" 

" GE " 
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6. progra:-! listings 



PROGRAM 



01-*-LBL -GEF 


FECT" 


02 




03 


PROMPT 


04 


■“ R = ? ■■ 


05 


PROMPT 


06 




07 




08 




09 


STO 17 


10 


1 . 55 


1 1 


- 


12 


X>Q7 


13 


GTO 01 


14 


XEQ "GE" 


15 


FIX 4 


16 


"RfiTIO=" 


17 


flRCL 


13 


OVIEN 


19 


GTO 02 


20+LBL 01 


21 


"GE = 0.. Rfi 



TIO=l •• 

22 PROMPT 
23*LBL 02 
24 END 



SUBROUTINE 



01+LBL •■GE" 

02 RCL 17 

03 1.3432 

04 * 

05 RCL 17 

06 XT2 

07 — 1.4569 
0 S * 

09 + 

10 RCL 17 

11 3 

12 YT-:«: 

13 . 70S0 

14 + 

15 + 

16 RCL 17 

17 4 
IS YTX 

19 -. 1276 

20 +• 

21 + 

22 .5147 

23 + 

24 END 
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APPENDIX C 



MAJOR SUBROUTINES 



This appendix consists of several major subroutines that 
are called and executed by the main programs of appendix D. 
These subroutines compute the vertical component of the in- 
duced velocity for forward climbing flight; prompt for data 
input; prompt for change of original data input; compute pro- 
file power, induced power, climb power, parasite power, and 
total power all for a single rotor helicopter; and compute 
the equivalent area and the induced power requirements for a 
tandem rotor helicopter. 
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COEFFICIENTS 



1. PURPOSE 

This is a Subroutine used by those main programs that 
deal with forward climbing flight computations. This Sub- 
routine calculates and stores the coefficients of a fourth 
order equation which Subroutine ”VC" will recall and use 
to solve for the one real root of this equation. This real 

root is the vertical component of the induced velocity, v. , 

^T 

which when multiplied with the thrust, T, gives the product 
of induced pov/er, ?^, for foirward climbing flight. 

2. EQUATIONS 



A(v. ) + B(v. + C(v. + D(v. ) + E = 0 (13) 

^T ^T* m 

where : 



A = 1.0 








B = 2V 

V 


V 

V 


is 


the vertical velocity 
(ft/sec) 


C = (V^2 + 


) 


is 


the forward velocity 
( ft/sec) 


D = 0 

J 




is 

at 


the induced velocity 
a hover (ft/sec) 



i 
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3 . FLOWCHART 



Start 



Prompt for and input R into Rgj 

W into Rj g 





Execute Subroutine "DN" j 


n 






Execute Subroutine "AD" 





I 



Execute Subroutine "VI” 



Solve equation for E 
and store answer into Rjg 



Solve equation for D 
and store answer into Rj ^ 



Solve equation for A 
and store answer into Rj ^ 



Solve equation for B 
and store answer into Rj 3 



Solve equation for G 
and store answer into Rj 2 




4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

This subroutine is immediately followed by Subroutine 
"VC" when used in the main programs. During its computation, 
Subroutine "VC" uses storage registers R^q through 
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It is therefore necessary to use Subroutine "DATA" at a 
latter time in the main program in order to get the input 
data properly stored into the correct memory registers. 
Because of this, some repetition of input data prompting 
will occur during main program usage. 

5. PROGRAMS AND SUBROUTINES USED 

" CF " 

"DN" 

"AD" 

"VI" 



6. PROGRAM LISTINGS 



SUBROUTINE 



01^LBL 


••CF" 


02 


"R = ? 


• • 


03 


PROMPT 


04 


STO 


05 


05 


" W = ? 


•• 


06 


PROMPT 


07 


STO 


10 


03 


XEQ 


"DN" 


09 


XEQ 


"OD" 


10 


XEQ 


" V I •• 


1 1 


4 




12 


YtX 




13 


CHS 




14 


STO 


1 0 


15 


0 




16 


STO 


1 1 


17 


1 




IS 


STO 


14 


19 


RCL 


23 


20 


O 




21 








STO 


13 


23 


■p 




24 






25 


XT2 




26 


RCL 


25 


C. 1 


XT 2 




23 


+ 




29 


STO 


12 


30 


END 
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VERTICAL COMPONENT OF INDUCED VELOCITY 



1. PURPOSE 

Subroutine "VC" is a subroutine used by those main pro- 
grams that deal with forward climbing flight computations. 

It will immediately follow Subroutine "CF" in the main pro- 
gram listing because Subroutine "VC" recalls the coeffi- 
cients of a fourth equation that Subroutine "CF" previously 
calculated. Subroutine "VC" uses the input of these co- 
efficients to solve for the one real root of this fourth 

order equation. This real root is v^ , the vertical compon- 

T 

ent of the induced velocity through the rotor system for 
forward climbing flight computations. Subroutine "VC" is a 
shortened version of Program "MHL" . Program "MHL" was ob- 
tained from the Catalog of Contributed Programs KP-41C 
User's Library. [Ref. 5] When given a polynomial with real 
coefficients. Program "MHL" will use Maehly's Method, a 
modification of the well-known Newton's Method to find the 
real roots of the equation. In its original form. Program 
"MHL" has 131 program steps. This program was modified 
for use as Subroutine "VC" with 105 program steps. 

2. EQUATIONS 

See Subroutine "CF" for a complete description of the 
fourth order equation that Subroutine "VC" solves. 

Neither the equations used in the iterative root solving 
process are shown, ncr is a flowchart for this process shown. 
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A complete description of this process is available from the 
HP-41C User's Library Catalog, Program Number 00660C. [Ref. 5] 

3 . FLOWCHART 

none 



4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

The user may wonder why Subroutine ''CF" and Subroutine 
"VC" were not combined into one subroutine. Subroutine "VC" 
has previously appeared in several different forms. Each 
form has solved the fourth order polynomial using a different 
technique. Subroutine "VC" currently exists in the shortest 
form found; both in number of program steps and program run- 
ning time. Perhaps the user of this subroutine is aware of 
an even shorter process and can thus modify this subroutine 
even farther. It is important to remember here that one of 
the primary reasons for the use of subroutines was for ease 
of program editing and modification. 

5. PROGRAMS & SUBROUTINES USED 

"VC" 



6. PROGRAM LISTINGS 
SUBROUTINE 

0 1-*-LBL "VC” 

02 FIX 2 

03 SF 00 

04 SF 01 

05 CF 29 

06 4 

07 S T O 00 



08 10.01 

09 + 

10 S70 06 

1 1 STO 08 

12 RCL 00 

13 . 1 

14 



69 



15 


RCL 




6 1 


GTO 


02 


1 S 


+ 




62^LBL 


05 


17 


STO 


07 


63 


CF 00 


IS 


CLX 




64 


1 




19 


STO 


0 1 


65 


ST + 


01 


20 


20 




66 


ST + 


07 


21 


STO 


02 


67 


RCL 


02 


22 


FC?C 


01 


68 


STO 


27 


23 


GTO 


02 


69 


GTO 


08 


24 


1 E- 




70^LBL 


"flB 


25 


STO 


04 


71 


RCL 


06 


26^LBL 


02 


72 


STO 


08 


27 


RCL 


02 


73 


RDN 




28 


XEQ 


"fiB” 


74 


RCL 


X 


29 


X = 0? 


75 


0 




30 


GTO 


05 


76^LBL 


06 


31 


RCL 


02 


77 


RCL 


IND 


32 


XEQ 


”Bfi” 


08 






33 


STO 


05 


78 


+ 




34 


FS? 


00 


79 


* 




35 


GTO 


04 


80 


DSE 


08 


36 


RCL 


07 


81 


GTO 


06 


37 


STO 


09 


82 


RCL 


10 


3S*LBL 


03 


83 


+ 




39 


RCL 


03 


84 


STO 


03 


40 


RCL 


02 


85 


RTN 




41 


RCL 


IND 


86^LBL 


•*Bfi 


09 






O “7 
^ 1 


RCL 


06 


42 


— 




88 


STO 


08 


43 






89 


RDN 




44 


ST- 


05 


90 


RCL 


X 


45 


DSE 


09 


91 


RCL 


y 


46 


GTO 


03 


92 


0 




47^LBL 


04 


93 


♦ LBL 


07 


48 


RCL 


02 


94 






49 


RCL 


03 


95 


RCL 


08 


50 


RCL 


05 


96 


IHT 




51 






97 


1 0 




52 


— 




98 


— 




53 


ENTERT- 


99 


RCL 


IND 


54 


X 

A 


02 


08 






55 


— 




1 00 


♦ 




56 


RCL 


02 


101 


+ 




57 


y 




102 


DSE 


08 


58 


RBS 




103 


GTO 


07 


59 


RCL 


04 


104^LBL 


08 


60 


K<Y? 


105 


END 
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DATA 



1. PURPOSE 

This is a subroutine used by all main programs for data 
input, and depending upon the looping involved, some pro- 
grams will use this subroutine more than once. In some very 
few instances, not every item of data that the calculator 
prompts for is required for program execution. In these 
few instances, the EXAMPLE PROBLEMS AND USER INSTRUCTIONS 
sections are very explicit in the correct procedures to be 
taken for data input. The primary reason in the repetitive 
use of this subroutine is to save program steps and calcu- 
lator memory. Alpha characters and operators, the main in- 
gredient of this subroutine, are more costly in storage re- 
quirements (bytes) than the typical numerical operators 
that are used throughout these programs. [Ref. 4] 

2 . EQUATIONS 

none 
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3 . FLOWCHART 



I Start ) 




4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

No equations are used, but this subroutine prompts for 
the following input where: 
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Display: 

REC? 



C=? 



C0=? 

Cl=? 



a=? 



R=? 

b=? 



CdO=? 

RV=? 

H=? 

W=? 

D.A.=? 



Explanation: 

asks if the rotor blade is of rectangular planform 
1 [R/S] if the answer is yes 

asks for the blade chord (ft) 

0 [R/S] if the answer is no 

asks for the root chord (ft) 
asks for the tip chord (ft) 

asks for the fraction of radius of the rectangular 

portion of the blade (decimal value) 

asks for the rotor disc radius (ft) 

asks for the total number of individual blades 

in the rotor system 

asks for the average profile drag coefficient, 
asks for the rotational velocity, Q (radians/sec) 
asks for the rotor system height above the 
ground, h (ft) 

asks for the weight of the helicopter (lbs) 

asks for the density altitude, h (ft) 

P 



5. PROGRAilS & SUBROUTINES USED 

"DATA” 

"ECHORD" 

"DN" 
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6 



PROGRAM LISTINGS 



SUBROUTINE 



01 


♦ LBL 


"DAT 


fi ■■ 






02 


"REC 




03 


PROMPT 


04 


X>0? 




05 


GTO 


10 


06 


NEQ 


-ECH 


ORD 


•• 




07 


GTO 


1 1 


03 


♦ LBL 


1 0 



0 9 C = ? " 

10 PROMPT 
ll^LBL 11 

12 STO 04 

13 ■■R = ?" 

14 PROMPT 

15 STO 05 

16 •■b = ?" 

17 PROMPT 
IS STO 06 

19 "CdO=?" 

20 PROMPT 

21 STO 07 

22 *’RV = ?" 

23 PROMPT 

24 STO 08 

25 

26 PROMPT 

27 STO 09 

23 " W = ? •• 

29 PROMPT 

30 STO 10 

31 XEQ "IiN” 

32 END 
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CHANGE 



1. PURPOSE 

This is a subroutine used by all main programs for expe- 
diting the change of input data. This subroutine is the 
last step in the main program listing before program termin- 
ation. This subroutine allows for as many as five of the 
input variables to be quickly changed before returning to 
the top of the main program listing and initiating a new 
program operation. Upon examining the program listing for 
this subroutine, it will become quickly apparent to the user 
the ease of which this subroutine could be edited for other 
desired changes. Again, this is one of the purposes and 
obvious advantages of using subroutines throughout these 
programs . 

2. EQUATIONS 

none 
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* Returns to and reruns the main program with new data 
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4. 



EXMIPLE PR0BLEI4S AND USER INSTRUCTIONS 



No sample problem is given here because of the numerous 
examples that exist in the main programs. Note that when 
flag 27 is set, this automatically places the calculator 
into the [USER] mode. By pressing the key directly below 
the displayed variable in need of change, will next cause 
the calculator to prompt for the new data input. The new 
numeric value is then keyed in followed by [R/S] . The 
calculator will again prompt in the display for another 
change of data with: "CHANGE?”. The user should remember 
that here as well as elsewhere in these programs, yes is 1 
and no is 0. When all changes have been made and the an- 
swer no is received, the calculator will then return to the 
main program and begin execution with the new data. If on 
the initial time through, no changes are desired, and the 
answer no is given (notice from the flov/ chart that flag 04 
has not been set) , the main program will terminate operation. 

5. PROGRAMS & SUBROUTINES USED 

"CG" 

"ECHORD" 
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6. PROGRAxM LISTINGS 



SUBROUTINE 

♦LBL "CG" 
CF 04 
♦LBL 06 
"CHRNGE? 

PROMPT 
X = 0? 

GTO 07 
SF 04 
SF 27 
•• C RV b 
W” 

PROMPT 
♦ LBL fi 
"REC?" 
PROMPT 
K>0? 

GTO 02 
XEQ "ECH 

GTO 03 

♦LBL 02 
• ■ 

PROMPT 
♦LBL 03 
STO 04 
GTO 05 



25 


♦ LBL 


B 


26 


•• RV 


— ’7’ ■* 


27 


PROMPT 


2S 


STO 


08 


O ■=) 

1_ -r 


GTO 


05 


30^LBL 


c 


31 


••b = 


? ” 


32 


PROMPT 


33 


STO 


06 


34 


GTO 


05 


35 


♦ LBL 


D 


36 


••R = 




-Ji t' 


PROMPT 


33 


STO 


05 


39 


GTO 


05 


40^LBL 


E 


41 


•• W= 


•• 


42 


PROMPT 


43 


STO 


10 


44^LBL 


£i5 


45 


CF 




46 


GTO 


06 


47 


♦ LBL 


07 


43 


FS? 


04 


49 


GTO 


I HD 


31 






50 


END 
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PROFILE POWER 



1. PURPOSE 

This subroutine computes the profile power, P^, required 
in terms of horsepower. Profile power is that power required 
to turn the rotor blades against their drag. 



EQUATIONS 



°h 8 ^ D X 



M = V^/V_ 



(14) 

(15) 






(16) 



where : 



°h 

) 

Of 



is the profile power required to hover 



ft-lb 

sec 



is the profile power required in forward 



flight 



ft-lb 



1 



sec 



C. is the average profile drag coefficient 
Uo 

Aj^ is the area of the rotor disc (ft^) 
is the tip velocity (ft/sec) 

is the forward velocity of the helicopter (ft/ sec) 
is the solidity of the rotor system 
U is the ratio of the rotor translational velocity 

to the velocity at the tip due to rotation 

lb-sec^ 



is the density of the air 



ft- 



79 



3 . FLOWCHART 
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4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 



none 

5 . PROGRAMS & SUBROUTINES USED 
"PO" 

6. PROGRAM LISTINGS 



SUBROUTINE 



0 1 ♦LBL 


"p! 


02 


RCL 


i "7 

4. -w* 


©3 






04 


Yt-X 




05 


RCL 


i O 

4. il. 


06 


* 




07 


RCL 


1 1 


0S 






09 


RCL 


07 


1 0 






1 1 


RCL 


19 


12 






13 


4400 




14 






15 


STO 


21 


1 6 


RCL 


25 


17 


J4 = 0? 




13 


CTO 


0£! 


19 


RCL 


■< ~7 

JL 


20 


-• 




21 


XT- 2 




22 


4. 25 




O ~7 

k. 






24 


1 




25 


+ 




26 


RCL 


21 


O 






•— 1 
£l. ' 


GTO 


09 


29^LBL 


M y 


30 


RCL 


21 


31 


♦ LBL 


09 


77 O 


"P0 = 




33 


PROMPT 


34 


VIEW 


KJ 


35 


STOP 




3 S 


3 T U 


21 


37 


END 
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INDUCED POV^R 



1. PURPOSE 



This subroutine computes the induced power, P^, re- 



quired in terms of horsepower. This subroutine deals 
only with hover and it takes into consideration both tip 
losses and ground effect. The induced power which produces 
a thrust equal to the weight (at hover) is equal to the pro- 
duct of the thrust and the inflow velocity. All of the main 
programs compute the inflow velocity peculiar to their flight 
conditions and will enter this subroutine at Label "PJ” or 



TJ". 



2. EQUATIONS 



P^ = T*v = T/T/2p*Ajj 




(17) 



P. = - 
^TL B 



(9) 



G • E . 

RATIO 




( 12 ) 



^OGE 



where: 



T is the thrust which is equal to the weight, '1 (lb) 



V 



is the induced velocity (ft/sec) 



B is the tip loss factor 



r 



lb-sec^ 

ft** 



p is the density of the air 



A is the disc area (ft^ 
D 



82 



is the induced power 



"ft-lbl 



sec 



P. is the induced power with tip losses 
^TL ^ 



r 

^ ft-lb 
, sec 



"OGE 



is the induced power under out-of-ground- 



effect conditions 



ft-lb ; 
sec j 



G • E . 

RATIO is the ground effect ratio 



3 . FLOWCHART 
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4 . EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

none 



5 . PROGRAI4S AND SUBROUTINES USED 

"PI" 

" GE " 
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PROGRATl LISTINGS 



SUBROUTINE 



LBL "PI” 


27 


RCL 08 


RCL 1© 


O 




1 . 5 


29 




v-r:<: 


30 


RCL 05 


RCL 1 1 


31 




RCL 12 


”7 


STO 17 


* 


•Jf - J* 


1 . 55 


2 


34 


— 




35 


X >0? 


SQRT 


36 


GTO 12 




•-i* r* 


XEQ "GE” 


550 


38 


RCL 16 


X'' 


38 


+ 


LBL "PJ" 


40 


"PKTL + G 


•• P I = •• 


E>=' 




PROMPT 


41 


PROMPT 


VIEW K 


42 


VIEW X 


STOP 


43 


STOP 


RCL 15 


44 


GTO 13 




45^LBL 12 


LBL "TJ" 


46 


"GE=0" 


”PI<TL>= 


47 


PROMPT 




48 


RCL 16 


PROMPT 


49^LBL 13 


VIEW X 


50 


STO 18 


STOP 


5 1 


END 


STO 16 
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CLIMB POtVER 



1. PURPOSE 

This subroutine computes the climb power, P , required 

c 

in terms of horsepower. 

2- EQUATIONS 

P = T*V (18) 

c V 

where : 

fft-lb^l 

P is climb power 1. j 

L sec j 

T is the thrust which is equal to the weight, V7 (lb) 
V is the vertical velocity (ft/sec) 

V 
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3 . FLOWCHART 




4. SXAJHPLE PROBLEMS AND USER INSTRUCTIONS 

none 



5. PROGRAMS & SUBROUTINES USED 
"PC'* 
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6. PROGRAf-I LISTINGS 



SUBROUTINE 



01+LBL 


"P 


02 


RCL 


23 


03 


X = 0? 




04 


GTO 


02 


05 


RCL 


10 


06 






0 7 


550 




03 






0 9 


*■ PC = 


• • 


1 0 


PROMPT 


1 1 


VIEW 


K 


12 


STOP 




13^LBL 


02 


14 


STO 


29 


15 


END 
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PARASITE POWER 



1. PURPOSE 

This subroutine computes the parasite power, P , 

P 

required in terms of horsepov/er. As the helicopter pro- 
ceeds from hover into forward flight, drag forces are 
created on the various components of the helicopter due to 
pressure drag and skin friction. 



2 . EQUATIONS 



Fp = = 



(19) 



where ; 



V 



V 



V 



V, 



is the parasite power 



[■ 



sec 



is the equivalent flat plate area for vertical 
flight (ft^) 

is the equivalent flat plate area for forward 
flight (ft^) 

is the vertical velocity (ft/sec) 

is the for'.'/ard velocity (ft/sec) 

lb • sec^ I 



p is the density of the air 



ft‘ 
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3 . FLOWCHAR' 



4 . 





EXAMPLE PROBLEMS AND USER INSTRUCTIONS 



none 



5. PROGRAMS & SUBROUTINES USED 

»«pp «« 
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PROGRAM LISTINGS 



SUBROUTINE 



LBL 


.. pp 


RCL 

YTX 


ril 5 


RCL 

:4c 


26 


RCL 

Yt:«: 




RCL 

* 

+ 


24 


RCL 

:4c 

1100 


1 1 


..pp_ 


•• 


PROMPT 


VIEW 

STOP 




STO 

END 
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TOTAL POl-JER 



1. PURPOSE 

This subroutine computes the total power, P^, 
for the main rotor in terms of horsepower. 

2. EQUATIONS 



P„ = P . + P + P„ + P^ 
T 1 o c p 



wherw ; 



P 

n 

X 

P. 

1 

P 



o 

p 



c 

p 

p 



is the total power required 
is the induced power required 
is the profile power required 
is the climb power required 
is the parasite power required 



required 



( 20 ) 
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3 . FLOWCHART 




4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

none 



5. PROGRAMS & SUBROUTINES USED 
** PT ** 
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6 . PROGRAM LISTINGS 



SUBROUTINE 



l^LBL "PT" 

2 RCL IS 

3 RCL 21 

4 + 

5 RCL 2S 

6 + 

7 RCL 29 
08 + 

09 STO 30 

10 ••PT<MR> = 

1 1 PROMPT 

12 VIEW 

13 STOP 

14 END 
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EQUIVALENT AREA 



1. PURPOSE 

This subroutine computes the equivalent area, A^, with 
tip losses of a tandem rotor helicopter in terms of square 
feet. 

2. EQUATIONS 



D 



FIGURE 3 

Planform View Of Overlapped Rotors [Ref. 3] 




where : 



overlap = 


1 - d/D 


(21) 


S = d/R 




(22) 


Y = cos“^ (1 


- overlap) 


(23) 


A = 2A, + 
o 


2Aj = 2itR2 


(24) 
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A 



e 




r. 



Y-sinycosY 



7T 




( 25 ) 



where : 



is the shaft spacing ratio 

A is the total combined area of the tv/o rotor 
o 

discs (ft^) 

A^ is the equivalent area (ft^) 

Y is the wake skew angle (radians) 

R is the radius of the rotor system (ft) 

D is the diameter of the rotor system (ft) 
d is the distance between the rotor shafts (ft) 
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3 . FLOWCHART 





4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

none 



5. PROGRAMS & SUBROUTINES USED 
"AE " 
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o o © o ® Q ® ® © ’H »-i .»H T-i th T-i .-H ^ th th C' j l^J C'J c<j C'J C' J C' J C'J 'r' j C'J rci [’■> Kt r’".' ki ro 



6. PROGRAJI LISTINGS 



SUBROUTINE 



♦ LBL ■•!=»£•• 

PROMPT 
RCL 05 

STO 00 
RCL 15 



ROD 
RCOS 
STO 12 
COS 

RCL 12 
SIN 

CHS 

RCL 1 2 

+ 

PI 

y' 

CHS 

1 



PI 

RCL 05 

RCL 15 

■M 

KT2 

* 

STO 12 

DEG 

END 
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TANDEM ROTOR INDUCED POWER 



1. PURPOSE 

This subroutine computes the induced power required for 
a tandem rotor helicopter in terms of horsepower. This sub- 
routine will compute both the induced power at a hover, P. , 

^h 

and the induced power in forward flight, Pj_ . 



2. EQUATIONS 



il.S 



P . = 



/ 2*p‘A 



K 



K = 1.46 - 0.253S, 



P. = P. *K 
^f h ^ 



K = 1 + d^/2 
u f 



= d/R 



Y = tan 






2'P'A,-Vf' 

X. ^ 



1 ->■ + Sr-COSY 



1 + Sj^^ (1 + So^ • sin^Y) 



(26) 

(27) 

(28) 

(29) 

( 22 ) 

(30) 

(31) 



where : 



is the induced power at a hover 



ft-lb^r 
i_ 

sec 
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P- is the induced power in forward flight 
f 



A 



ft-lb. 



sec 



A 



K 



u 



R 



is the effective area (ft^) 

is the area of the forward rotor disc (ft^) 
is the induced power correction factor 
is the forward flight correction factor 
is the rotor shaft spacing ratio 
is the thrust of the forward rotor which is 
usually equal to J5W, the weight (Ib^) 
is the forward velocity (ft/sec) 

K is the ratio of the induced power at a hover for 
a single rotor helicopter as compared to a tandem 
is the distance between the rotor shafts (ft) 
is the radius of the rotor system (ft) 
is the thrust which is equal to the weight, W (Ibf) 
is the wake skewing angle 



V 



r 2 

is the density of the air 1 ib-^c_ 






3 . FLOWCHART 




100 




*enters Subroutine "PI" at label "TJ" 
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4. EXAJMPLE PROBLEMS AND USER INSTRUCTIONS 



none 



5. PROGRAMS & SUBROUTINES USED 

** P I T ** 

"AD" 

"PI" at label "TJ" 



6. PROGRATl LISTINGS 



SUBROUTINE 








mi^LBL "PIT 


35 


STO 








36 


SIH 




02 


RCL 10 


37 


XT 2 




03 


1 . 5 


38 


RCL 


00 


04 


YTX 


39 


XT2 




05 


RCL 12 


40 


■M 




06 


RCL 1 1 


4 1 


1 




07 


* 


42 


+ 




08 


2 


43 


RCL 


00 


09 




44 


XT2 




10 


SORT 


45 


1 




1 1 


y 


46 


+ 




X 


550 


47 


SORT 


13 


y 


48 


STO 


19 


14 


RCL 00 


49 


+ 




15 


_ _ 253 


50 


1 .'X 




1 6 




51 


RCL 


■C. >2. 


17 


1 . 46 


52 


COS 




IS 


+ 


Fi3 


RCL 


00 


1 9 




54 


:4c 




20 


T 0 16 


55 


RCL 


19 


21 


RCL 25 


56 


+ 




’P 


X = 0? 


57 


:4c 




y. 


GTO 01 


5 3 


2 




24 


RCL 10 


59 






25 


. 375 


60 


1 




26 




6 1 


+ 




O ~7 


RCL 1 1 


62 


RCL 


16 


28 




63 


:4c 




29 


KEQ "flD" 


64 


GTO 


02 


30 




65 


♦ LBL 


01 


31 


RCL 25 


66 


RCL 


16 




XT2 


67 


♦ LBL 


02 






63 


XEQ 


"TJ 


34 


RTfiN 


69 


END 
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APPENDIX D 



MAIN PROGRAMS 



This appendix consists of the main programs of this pro- 
gramming effort. The major ingredients of these programs are 
the subroutines found in the preceding two appendices. These 
main programs compute the various power requirements for 
hovering flight, forward (straight and level) flight, ver- 
tical flight, and forward climbing flight all for a single 
rotor helicopter; also tailrotor power requirements; auto- 
rotative flight; tandem rotor hovering and forward flight 
power requirements; and finally a short program to check 
several of the critical flight parameters. 
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HOVER 



1. PURPOSE 



This main program computes the various power require- 
ments in terms of horsepower for hovering flight. The var- 
ious calculated power requirements are displayed as follows 
Display; Explanation: 



PI= 



PI (TL)= 

PI (TL+GE) = 



P0= 



PT (MR) = 



induced power 

induced power with tip losses 

induced power with tip losses plus ground 

effect 

profile power 

total power for the main rotor 



2 . EQUATIONS 

No equations are found in the actual program itself. 
Consult the various subroutine listings for the equations 
used. 
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3 . FLOWCHART 



(start) 
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4. EXAflPLE PROBLEMS AND USER INSTRUCTIONS 



Find the hover power requirements for an OH-58C, Kiowa, 
under the following conditions: 



C = 1.086 ft 


^ = 354 RPM -> 37.068 rads/sec 


R = 17.7 ft 


h = 25 ft 


b = 2 


D.A. = 1,000 ft 


W = 3,000 lbs 


C, = .008 

do 


Keystrokes : 


Display : 


[XEQ] [ALPHA] HOVER 


[ALPHA] REC? 


(Rectangular Blade? 


1 is Yes, 0 is No) 


1 [R/S] 


C=? 


1.086 [R/S] 


R=? 


17.7 [R/S] 


b=? 


2 [R/S] 


CdO=? 


.008 [R/S] 


II 

> 


37.068 [R/S] 


H=? 


25 [R/S] 


W=? 


3,000 [R/S] 


D .A.=? 


1,000 [R/S] 


PI= 


[R/S] 


140 .16 


[R/S] 


PI (TL) = 


[R/S] 


145.87 


[R/S] 


PI (TL+GE) = 


[R/S] 


139.21 


[R/S] 


PO= 
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[R/S] 

[R/S] 

[R/S] 



45.57 



[R/S] 


PT(KR)= 



184.77 



[R/S] 


CHANGE? 



(Change Data? 1 is Yes, 0 is No) 

1 [R/S] C RV b R W 

It is desired at this point to increase the weight of this 
helicopter to 3,200 lbs (maximum gross weight) . To observe 
what effect this change will have on the hover power re- 
quirements, press the key on the calculator keyboard di- 
rectly beneath the variable in need of change. In this case 
the [LN] key is directly beneath the W in the display: 



[LN] 


W=? 


3,200 [R/S] 


CHANGE? 



(Any Further Changes? 1 is Yes, 0 is No) 



0 [R/S] 


PI= 


[R/S] 


154 .41 


[R/S] 


PI (TL) = 


[R/S] 


160.92 


[R/S] 


PI (TL+GE) = 


[R/S] 


153.56 


[R/S] 


PO= 


[R/S] 


45.57 


[R/S] 


PT(MR) = 


[R/S] 


199.13 


[R/S] 


CHANGE? 
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0 [R/S] 



0 .00 



Now, using the same OH-58C at the new weight of 3,200 lbs 
find the hover power requirements with the rotor system 
height above the ground, h, equal to 60 ft. 



Keystrokes : 


Display : 


[R/S] 


REC? 


1 [R/S] 


C=? 


1.086 [R/S] 


II 


17.7 [R/S] 


b=? 


2 [R/S] 


CdO=? 


.008 [R/S] 


II 

> 


37.068 [R/S] 


H=? 


60 [R/S] 


W=? 


3,200 [R/S] 


II 

• 

Q 


1,000 [R/S] 


pi= 


[R/S] 


154.41 


[R/S] 


PI (TL) = 


[R/S] 


160 .92 


[R/S] 


GE=0 



(Ground effect is now equal to zero, the helicopter is 
hovering out of ground effect.) 



[R/S] 


PO= 


[R/S] 


45.57 


[R/S] 


PT(MR) = 


[R/S] 


206.48 
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[R/S] 

0 [R/S] 

5. PROGRAMS & SUBROUTINES USED 



AD" 


"ECHORD" 


"PT 


CG" 


"GE" 


"SD 


CT" 


"HOVER" 


"TL 


DATA" 


"PI" 


"VT 


DN" 


"PO" 





6 . PROGRAM LISTINGS 



PROGRAM 



0 l^LBL 


•• H U V 


ER" 


02 


CLRG 




03 


•• H 1 •• 




04 


OSTO 


31 


05 


XEQ 


••DOT 




0 6 L B L 


•• H 1 ■• 


07 


KEQ 




0S 


^<:EQ 


••VT” 


09 


XEQ 


"CT" 


1 0 


:«:eq 


"TL” 


1 1 


XEQ 


” P I 


12 


XEQ 


"SD” 


13 


XEQ 


.. p 0 .. 


1 4 


XEQ 


”PT" 


15 


XEQ 


CG ” 


1 6 


END 





CHANGE? 
0 .00 
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F0RV7ARD FLIGHT 



1. PURPOSE 

This main program computes the various power require- 
ments in terms of horsepower for forward (straight and 
level) flight. If the forward flight velocity, V^, is 
entered as zero, this program will also calculate the var- 
ious hover power requirements. The various calculated 
power requirements are displayed as follows: 

Display; Explanation: 

PI= induced power 

PI(TL)= induced power with tip losses 

PI(TL+GE)= induced power with tip losses plus ground 



effect 



P0= 



profile power 



PP= 



parasite power 



PT(MR) = 



total power for the main rotor 



2 . EQUATIONS 



''f (ft/sec) = (kts) * (1-68894) 



(32) 




1 

2 



P . 
1 



T-v. = T- < 
It 



2 




(33) 
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where : 



T is the thrust which is equal to the weight, W (Ib^) 
is the forward velocity (ft/sec) 
is the induced velocity at a hover (ft/sec) 

f- 

P- is the induced power required 

^ I sec 

L J 

v^_^ is the thrust component of the induced velocity 
vector (ft/ sec) 

No other equations are found in the actual program 
itself. Consult the various sxobroutine listings for the 
equations used. 



Ill 
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n BHw 



b| 

i 










S L, 








4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

Find the forward (straight and level) flight power require 
ments for an 0H-6A, Cayuse, under the following conditions 



C = 0.57 ft 


n = 470 RPM -► 49.215 rads/sec 


R = 13.165 ft 
b = 4 


C, = .009 
^o 

D. A. = 500 ft 


W = 2,250 lbs 


= 90 kts 


h = 100 ft 


f^ = 5.0 ft^ 


Keystrokes ; 


Display ; 


[XEQ] [ALPHA] FORFLT 


[ALPHA] FOR V=? 


90 [R/S] 


F.P.A. (FF)=? 


5 [R/S] 


REC? 


(Rectangular Blade? 


1 is Yes, 0 is No) 


1 [R/S] 


C=? 


.57 [R/S] 


R=? 


13.165 [R/S] 


b=? 


4 [R/S] 


CdO=? 


.009 [R/S] 


RV=? 


49.215 [R/S] 


H=? 


100 [R/S] 


W=? 


2,250 [R/S] 


D.A.=? 


500 [R/S] 


PI= 


[R/S] 


23.72 


[R/S] 


PI (TL) = 


[R/S] 


24.28 
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[R/S] 



GE=0 



[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

(Change Data? 1 is Yes, 0 is No) 



P0= 

48.27 

PP= 

37.39 

PT(MR) = 

109.94 

CHANGE? 



1 [R/S] C RV b R W 

It is desired at this point to decrease the rotor radius 



from 13.165 ft to 12.665 ft. To observe what effect this 
change will have on the forward flight horsepower require- 
ments, press the key on the calculator keyboard directly 
beneath the variable in need of change. In this case the 
[LOG] key is directly beneath the R in the display: 



[LOG] 


R=? 


12.665 [R/S] 


CHANGE? 


(Any Further Changes? 


1 is Yes, 0 is No) 


0 [R/S] 


PI= 


[R/S] 


25 .63 


[R/S] 


PI (TL) = 


[R/S] 


26.28 


[R/S] 


GE=0 


[R/S] 


PO= 


[R/S] 


41.97 
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[R/S] 


PP= 


[R/Sl 


37.39 


[R/S] 


PT(MR) = 


[R/S] 


105 .64 


[R/S] 


CHANGE? 


0 [R/S] 


0.00 



Find the hovering flight power requirements for the same 
0H-6A under the original conditions with the only difference 
being = 0 . 



Keystrokes : 


Display : 


[R/S] 


FOR V=? 


0 [R/S] 


F.P.A. (FF) =? 


5 [R/S] 


REC? 


1 [R/S] 


C=? 


.57 [ R/S ] 


R=? 


13.165 [R/S] 


b=? 


4 [R/S] 


CdO=? 


.009 [R/S] 


RV=? 


49.215 [R/S] 


H=? 


100 [R/S] 


W=? 


2,250 [R/S] 


D .A.=? 


500 [R/S] 


PI = 


[R/S] 


121.50 


[R/S] 


PI (TL) = 


[R/S] 


124.35 
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[R/S] 



GE=0 



[R/S] 


PO= 


[R/S] 


39.12 


[R/S] 


PP= 


[R/S] 


0.00 


[R/S] 


PT(MR) = 


[R/S] 


163.47 


[R/S] 


CHANGE? 


0 [R/S] 


0 .00 


note - When 


program "HOVER" is executed for thi 


outputs are 


identical. Examination of equation 



Vj = 0 , readily explains the reason for the identical re- 
sults . 



PROGRAMS & SUBROUTINES USED 



"AD” "FORFLT" 

"CG" "GE" 

"CT" "PI" at label "PJ" 

"DATA" "PO" 

"DN" "pp” 

"ECHORD" "PT" 



"SD" 
" TL " 
"VI " 
"VT " 



6. PROGRAM LISTINGS 
PROGRAM 



01+LBL "FOR 



FLT- 




07 


1 . 8S94 


02 


CLRG 


08 




03 


■ ■ P'0 •• 


09 


STO 25 


04 


RSTO 31 


1 0 


” F . P . R . 


05 


"FOR V=? 


FF> = 
1 1 


«■ 

PROMPT 


06 


PROMPT 


12 


STO 26 
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••Dfi 



13 XEQ 
fi" 

14*LBL "F2 

15 XEQ "OD 

16 XEQ "VT 

17 KEQ "CT 
IS XEQ "TL 

19 XEQ "VI 

20 RCL 25 

21 RCL 20 

22 

23 KT2 

24 2 

25 

26 STO 00 

27 XT2 
2S 1 

29 + 

30 SORT 

31 RCL 00 

JT O 

33 SORT 

34 RCL 20 

35 * 

36 RCL 10 

37 * 

3S 550 

39 

40 XEQ “PJ 

41 XEQ "SD 

42 XEQ "PO 

43 XEQ "PP 

44 XEQ "PT 

45 XEQ "CC 

46 END 



VERTICAL FLIGHT 



1. PURPOSE 



This main program computes the various power require- 
ments in terms of horsepower for vertical flight (vertical 
ascent). If the vertical velocity, V^, is entered as zero, 
this program will also calculate the various hover power re- 
quirements. The various calculated power requirements are 
displayed as follows: 

Display: Explanation: 



PI= 



PI (TL) = 

PI (TL+GE) = 



P0= 



PP= 



PC= 



PT (MR) = 



induced power 

induced power with tip losses 

induced power with tip losses plus ground 

effect 

profile power 
parasite power 
climb power 

total power for the main rotor 



2 . EQUATIONS 

^v (ft/sec) “ ^v (ft/min) * 50 

''v - - 2 * '^(V^/2) " + 



P. 

1 



c 



T • 



V 



V 



(36) 
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where : 



T is the thrust which is equal to the weight, W (Ib^) 
is the induced velocity due to pumping in a 
vertical climb (ft/sec) 



is the steady rate of climb velocity (ft/sec) 

V. is the induced velocity at a hover (ft/sec) 

fft-lbf 

P. is the induced power required to climb 

^c L sec 



No other equations are found in the actual program it- 
self. Consult the various subroutine listings for the 
equations used. 
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3 . 



FLOWCHART 




at label ”PJ" 
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4. 



EXAMPLE PROBLEMS AND USER INSTRUCTIONS 



Find the vertical flight power requirements for an SH-3H, 
Sea King, under the following flight conditions: 



C = 1.52 ft 
R = 31 ft 
b = 5 

W = 18,000 lbs 
h = 100 ft 

Keystrokes : 

[XEQ] [ALPHA] VERFLT [ALPHA] 

1.000 [R/S] 

360 [R/S] 

(Rectangular Blade? 1 is Yes, 
1 [R/S] 

1.52 [R/S] 

31 [R/S] 

5 [R/S] 

.0095 [R/S] 

21.257 [R/S] 
loo [R/S] 

18.000 [R/S] 

100 [R/S] 

[R/S] 

[R/S] 

[R/S] 



C. = .0095 
^o 

D. A. = 100 ft 

= 1,000 ft/sec 
f = 360 ft^ 

V 

Q = 203 RPM ->• 21.257 rads/sec 

Display ; 

VERT V=? 

F.P.A. (VF)=? 

REC? 

0 is No) 

C=? 

R=? 
b=? 

CdO=? 

RV=? 

H=? 

W=? 

D .A.=? 

PI= 

919.60 
PI (TL) = 

939.83 
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[R/S] 


GE=0 


[R/S] 


PO= 


[R/S] 


344.97 


[R/S] 


PP= 


[R/S] 


3.59 


[R/S] 


PC= 


[R/S] 


545.45 


[R/S] 


PT(MR) = 


[R/S] 


1,833.84 


[R/S] 

(Change Data? 1 is Yes, 0 is No) 


CHANGE? 


1 [R/S] 


C RV b R W 


It is desired at this point to taper 
new main rotor blade dimensions are: 
Co = 1-52 
Cj = 0.76 
a = .90 


the rotor blades. The 



To observe what effect this change will have on the vertical 
flight power requirements, press the key on the calculator 
keyboard directly beneath the variable in need of change. 

In this case the [S+] key is directly beneath the C in the 
display : 



[2+] 


REC? 


0 [R/S] 


11 

O 

U 


1.52 [R/S] 


Cl=? 


.76 [R/S] 


a=? 
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.9 [R/S] 


CE=1.413 


(The new Equivalent Chord is 1.413 


ft) 


[R/S] 


CHANGE? 



(Any Further Changes? 1 is Yes, 0 is No) 



0 [R/S] 


PI= 


[R/S] 


919.595 


[R/S] 


PI (TL) = 


[R/S] 


939.828 


[R/S] 


GE=0 


[R/S] 


P0= 


[R/S] 


320.776 


[R/S] 


PP= 


[R/S] 


3.591 


[R/S] 


PC= 


[R/S] 


545.455 


[R/S] 


PT(MR) = 


[R/S] 


1,809 .649 


[R/S] 


CHANGE? 


0 [R/S] 


0.000 



Find the hovering flight power requirements for the same 
SH-3H under the original conditions with the only difference 



being = 0 . 

Keystrokes : 


Display : 


[R/S] 


VERT V=? 


0 [R/S] 


F.P.A. (VF)=? 
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360 [R/S] 

1 [R/S] 

1.52 [R/S] 

31 [R/S] 

5 [R/S] 

.0095 [R/S] 

21.257 [R/S] 

100 [R/S] 

18,000 [R/S] 

100 [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

0 [R/S] 

note - When program 
outputs are identical, 
wi th = 0 , 

results . 



REC? 

C=? 

R=? 

b=? 

CdO=? 

RV=? 

H=? 

W=? 

D.A.=? 

PI= 

1, 160 .712 
PI (TL) = 

1, 186 .250 

GE=0 

PO= 

344.966 

PP= 

0.000 

PT(MR)= 

1,531.217 

CHANGE? 

0.000 

case, the 
35 and 36 
identical 



HOVER" is executed for this 
Examination of equations 
readily explains the reason for the 
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I 

■‘I 





5 



PROGRAMS & SUBROUTINES USED 



"AD" "GE" 

"CG" "PC" 




"SD" 
" TL" 




"CT" "PI" at label 

"DATA" "PO" 

"DN" "pp" 

"ECHORD" "PT" 

PROGRAM LISTINGS 


"PJ" 


"VERFLT" 
"VI " 

"VT" 


PROGRAM 


01^LBL "VER 








FLT" 


23 


RCL 


2y 


02 CLRG 


24 






03 "VI" 


*? 


STO 


00 


04 fiSTO 31 


26 


XT2 




05 "VERT V= 


27 


•« 

X 






2 o 


+ 




06 PROMPT 


29 


SORT 




0F 60 


30 


RCL 


00 


08 


3 1 


— 




09 STO 23 




RCL 


20 


10 " F . P . fi . < 


33 






VF>=?" 


34 


RCL 


10 


1 1 PROMPT 


35 






12 STO 24 


36 


550 




13 KEQ "DAT 


37 






fi " 


3h 


XEQ 


•• C« 1 

l s 


14+LBL "VI" 


39 


:<EQ 


"SB 


15 XEQ "fiD" 


40 


KEQ 


" PO 


16 :=<EQ ”VT" 


41 


:keq 


"PP 


17 KEQ "CT" 


42 


J<EQ 


"PC 


IS XEQ "TL" 


43 


XEQ 


"PT 


19 :«:EQ "VI" 


44 


XEQ 


" C G 


20 RCL 23 

21 2 


45 


END 
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FLIGHT 



1. PURPOSE 



This main program computes the various power require- 
ments in terms of horsepower for foirward climbing flight. 

If the vertical velocity, V^, is entered as zero, this 
program will compute the various power requirements for for- 
ward (straight and level) flight. If the forward velocity, 
Vj, is entered as zero, this program will compute the var- 
ious power requirements for vertical flight. If both the 
vertical velocity, V^, and the forward velocity, V^, are 
entered as zero, this program will compute the various 
power requirements for hovering flight. The various cal- 
culated power requirements are displayed as follows: 

Display: Explanation: 



PI= 

PI(TL)= 

PI (TL+GE) = 



P0= 



PP= 



PC= 



PT(MR) = 



induced power 

induced power with tip losses 

induced power with tip losses plus ground 

effect 

profile power 
parasite power 
climb power 

total power for the main rotor 



2. EQUATIONS 



^f (ft/sec) (kts) 



(1.68894) 



(32) 
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p. 

1 



( 33 ) 



= 

IT 



(ft/sec) (ft/min) 



( 34 ) 



where : 



T is the thrust which is equal to the weight, W (Ib^) 

ft-lbp 

Pjl^ is the induced power 



sec 



V is the vertical velocity (ft/sec) 



is the forward velocity (ft/sec) 

V. is the vertical component of the induced 
It 

velocity (ft/sec) 



No other equations are found in the actual program it- 
self. Consult the various subroutine listings for the 
equations used. 
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3 . 



FLOWCHART 
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clear Flag 01 





*enters Subroutine "PI" 
at label "PJ" 
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4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 



Find the forward climbing flight power requirements for a 

following conditions: 



UH-60A, Blackhawk, under the 
C = 1.73 ft 
R = 26.835 ft 
b = 4 

W = 18,250 lbs 
h = 200 ft 
D.A. = 650 ft 

Keystrokes : 

[XEQ] [ALPHA] FLIGHT [ALPHA] 
(Execute Vertical Flight Only? 
0 [R/S] 

(Execute Forward Flight Only? 

0 [R/S] 

(The calculator is ready to do 
i.e. forward climbing flight) 
[R/S] 

500 [R/S] 

308 [R/S] 

60 [R/S] 

25.69 [R/S] 

26.835 [R/S] 

18,250 [R/S] 



n = 258 RPM 27.02 rads/sec 

C, = .008 
°o 

V =500 ft/sec 

V 

f = 308 ft^ 

V 

= 60 kts 

f = 25.69 ft^ 
f 

Display ; 

VERT ONLY? 

1 is Yes, 0 is No) 

FOR ONLY? 

1 is Yes, 0 is No) 

BOTH 

the combination of both, 

VERT V=? 

F.P.A. (VF)=? 

FOR V=? 

F.P.A. (FF) =? 

R=? 

W=? 

D .A.=? 
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650 [R/S] 



REC? 



(Rectangular Blade? 1 is Yes, 0 is No) 



1 [R/S] 


C=? 


1.73 [R/S] 


R=? 


26.835 [R/S] 


b=? 


4 [R/S] 


CdO=? 


.008 [R/S] 


RV=? 


27.02 [R/S] 


H=? 


200 [R/S] 


W=? 


18,250 [R/S] 


II 

• 

Q 


650 [R/S] 


pi= 


[R/S] 


549.98 


[R/S] 


PI (TL) = 


[R/S] 


566.21 


[R/S] 


GE=0 


[R/S] 


PO= 


[R/S] 


325.07 


[R/S] 


PP= 


[R/S] 


57 .05 


[R/S] 


PC= 


[R/S] 


276.52 


[R/S] 


PT(.MR) = 


[R/S] 


1224.85 


[R/S] 


CHANGE? 


0 [R/S] 


0 .00 
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Find the vertical flight power requirements for the same 
UH-60A under the same conditions with the only exception 



being that the forward flight velocity, V^, is now equal 



to zero. 




Keystrokes : 


Display: 


[R/S] 


VERT ONLY? 


1 [R/S] 


VERT V=? 


500 [R/S] 


F.P.A. (VF)=? 


308 [R/S] 


R=? 


26.835 [R/S] 


W=? 


18,250 [R/S] 


D.A.=? 


650 [R/S] 


REC? 


1 [R/S] 


C=? 


1.73 [R/S] 


R=? 


26.835 [R/S] 


b=? 


4 [R/S] 


CdO=? 


.008 [R/S] 


RV=? 


27.02 [R/S] 


H=? 


200 [R/S] 


W=? 


18,250 [R/S] 


D .A.=? 


650 [R/S] 


PI = 


[R/S] 


1248.63 


[R/S] 


PI (TL) = 


[R/S] 


1285.50 


[R/S] 


GE=0 


[R/S] 


P0= 
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[R/S] 


300.15 


[R/S] 


PP= 


(R/S] 


0.38 


[R/S] 


PC = 


[R/S] 


276 .52 


[R/S] 


PT(MR) = 


[R/S] 


1,862.54 


[R/S] 


CHANGE? 


0 [R/S] 


0 .00 



note - When program "VERFLT" is executed for this case, the 
outputs are identical. Examination of subroutine "CF" and 



subroutine "VC" with = 0 , explains 

identical results. 


the reason for the 


Find the forward (straight and level) 


flight power require- 



ments for the same UH-60 under the original conditions with 
the only exception being that the vertical velocity, V^, is 



now equal to zero. 




Keystrokes : 


Display : 


[R/S] 


VERT ONLY? 


0 [R/S] 


FOR ONLY? 


1 [R/S] 


FOR V=? 


60 [R/S] 


F.P.A. (FF)=? 


25.69 [R/S] 


R=? 


26.835 [R/S] 


W=? 
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18,250 [R/S] 


D.A.= 


650 [R/S] 


PI= 


[R/S] 


558.69 


[R/S] 


PI (TL) = 


[R/S] 


575.18 


[R/S] 


GE=0 


[R/S] 


PO= 


[R/S] 


325.07 


[R/S] 


PP= 


[R/S] 


56 .68 


[R/S] 


PT (MR) = 


[R/S] 


956.93 


[R/S] 


CHANGE? 


0 [R/S] 


0.00 



note - When program "FORFLT" is executed for this case, the 
outputs are identical. Examination of subroutine "CF" and 
subroutine "VC" with V =0, explains the reason for the 

V 

identical results . 

Find the hovering flight power requirements for the same 
UH-60 under the original conditions with the only exceptions 



being that both the vertical velocity, 
velocity, V^, are equal to zero. 


V , and the forward 

V 


Keystrokes : 
[R/S] 


Display : 
VERT ONLY? 
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VERT ONLY? 



0 [R/S] 


FOR ONLY? 


0 [R/S] 


BOTH 


[R/S] 


VERT V=? 


0 [R/S] 


F.P.A. (VF) 


308 [R/S] 


FOR V=? 


0 [R/S] 


F.P.A. (FF) 


25.69 [R/S] 


R=? 


26.835 [R/S] 


W=? 


18,250 [R/S] 


D .A.=? 


650 [R/S] 


REC? 


1 [R/S] 


C=? 


1.73 [R/S] 


R=? 


26.835 [R/S] 


b=? 


4 [R/S] 


CdO=? 


.008 [R/S] 


RV=? 


27.02 [R/S] 


H=? 


200 [R/S] 


W=? 


18,250 [R/S] 


D.A.=? 


650 [R/S] 


PI= 


[R/S] 


1,379 .98 


[R/S] 


PI (TL) = 


[R/S] 


1,420.73 


[R/S] 


GE=0 


[R/S] 


PO= 


[R/S] 


300 . 15 


[R/S] 


PP= 
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[R/S] 



0.00 



[R/S] 



PT(MR)= 



[R/S] 



1,720.88 



[R/S] 



CHANGE? 



0 [R/S] 



0 .00 



note - When program "HOVER" is executed for this case, the 
outputs are identical. Examination of subroutine "CF" and 
subroutine "VC" with V^ = 0 , and V^ = 0 , explains the reason 
for the identical results . 

The user of program "FLIGHT" might wonder at this time 
as to why it is even necessary to have programs "HOVER", 
"FORFLT", and "VERFLT" when it has now become obvious that 
program "FLIGHT" will do all three cases. Three reasons 
exist to substantiate the existence of these other three 
programs. First, program "FLIGHT" is a long program and, 
as such, requires 31 more program registers than any of the 
other three. Second, program "FLIGHT" has a longer running 
time than any of the other three. Subroutine "VC" alone will 
take an average of 30 seconds of execution time. And third, 
program "FLIGHT" involes some double prompting for the same 
input. The reasons for this were explained in subroutines 
"DATA and "CF" . This procedure optimizes the use of data 
registers, but also increases the execution time. 
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Therefore, if the user's only desire is to execute 
pure hover, or forward flight, or vertical flight compu- 
tations, then one of these other programs should be used. 
Both calculator memory space and calculator execution time 
will be significantly reduced. 



5. PROGRAMS & SUBROUTINES USED 



AD" 


"DN" 


"PI" at label "PJ" 


"TL" 


CF" 


"ECHORD" 


"PO" 


"VC " 


CG" 


"FLIGHT" 


tippit 


"VI " 


CT" 


" GE " 


" PT " 


"VT " 


DATA" 


"PC" 


”SD" 





6. PROGRAM LISTINGS 
PROGRAM 



01^LBL *’FLI 


21 




GHT 


99 




STO 23 


02 


CLRG 


23 


" F . P . . < 


03 


■■ F 1 •• 


VF> 




04 


flSTO 31 


24 


PROMPT 


05 


SF 01 


25 


STO 24 


06 


"VERT ON 


26 


FS? 01 


LY? 


■■ 


O 

•1. t 


GTO 06 


07 


PROMPT 


23^LBL 05 


03 


K >0? 


29 


"FOR V=? 


09 


GTO 04 


11 




10 


"FOR OHL 


30 


PROMPT 


V* " 




31 


1 . 6S894 


1 1 


PROMPT 


32 




1 2 


X >0? 


33 


STO 25 


13 


GTO 05 


34 


” F . P . fl . < 


14 


CF 01 


FF> = 




15 


"BOTH" 


35 


PROMPT 


16 


PROMPT 


36 


STO 26 


IF^LBL 04 


37^LBL 06 


IS 


“VERT V= 


“7 O 
•— « 


CF 01 


■? ■■ 




39 


>^:EQ "CF" 


1 9 


PROMPT 


40 


XEQ "VC" 


20 


60 


41 


XEQ "DRT 
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01 cn UKH yi cfl cn cn cn cn ^ js*. 4^. 

‘■£f CO N CT'. on 4 i- oj ro o *.o co n a-, oi oj ro 



fi 



♦ LBL 


.. F 1 .. 


XEQ 


ft D •• 


XEQ 


•• VT" 


XEQ 


.. Q J .. 


XEQ 


"TL" 


RCL 


27 


RCL 


10 


-'♦c 




550 




y 




XEQ 


•• P J" 


XEQ 


•• SD •• 


XEQ 


••PO" 


XEQ 


"PP" 


XEQ 


.. p 0 .. 


XEQ 


..pT- 


XEQ 


■■ C G 


END 
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TAILROTOR 



1 . PURPOSE 

This main program computes the various tailrotor power 
requirements in terms of horsepower under all types of 
flight conditions. The tailrotor program must be executed 
immediately following the execution of any of the main 
rotor programs such as "HOVER", "FORFLT", "VERFLT", or 
"FLIGHT". The tailrotor program recalls and uses much of 
the information that the previously executed program has put 
into storage. By doing this, the tailrotor program is 
shortened. There is no need for regurgitation of input data 
and calculations for the main rotor, which is the starting 
point for all tailrotor computations. The various calculated 
power requirements are displayed as follows; 

Display: Explanation: 

PI= induced power for the tailrotor 

PI (TL) = induced power with tip losses for the tail- 



rotor 



P0= 



profile power for the tailrotor 



PT (TR) = 



total power for the tailrotor 



PT (MR) = 



total power for the main rotor 



PT(ACFT)= total power for the aircraft 



2 . EQUATIONS 



P. 

1 



(tr) 



T 



(tr) 



• V . 
1 



(tr) 



( 37 ) 
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I 




T 



V 



V 



P 



P 



where 



(tr) 






'tr 



(38) 



(tr) 



V. 



'V. 



2 x 2 



(2A_ SI, vp) 

\ tr (mr) V 



(mr) 



^(tr) (: 






(39) 

(40) 



i, = T(tr) • 

^(tr) ^(tr) 



(41) 



(tr) 



i^(tr)^dc 



pA V ^ 

(tr) ^(tr) '^(tr) 



1 +4.3 - 



/VfY 



\V„ 



(42) 



(mr) 



V. 






h 



(tr) 



(tr) 



(tr) 



(tr) 



(mr) 



is the induced velocity of the tailrotor 

in forward flight (ft/sec) 

is the induced power required by tailrotor 

^ft-lb. ■ 

forward flight 



sec 

is the profile power required by the tail- 

r ft-ibj 

rotor in forward flight | 

L sec 

is the average profile drag coefficient 
of the tailrotor 

is the total power required by the main rotor 

■ft-lb.r ' 

in hover — 

. sec 

is the disc area of the tailrotor (ft^) 



(tr) 
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V. 



V 



V. 



(tr) 

(mr) 



(tr) 



P . 

1 



( tr) 



(tr) 



is the tip velocity of the tailrotor (ft/sec) 
is the tip velocity of the main rotor (ft/sec) 
is the induced velocity of the tailrotor at 
a hover (ft/sec) 

is the induced power required by the tail- 

fft-lbf' 

rotor at a hover I 

L sec 

is the required thrust for the tailrotor (Ib^) 



9 . 



(mr) 



is the rotational velocity of the main rotor 
system (radians/sec) 

C(tr) is the solidity of the tailrotor 

P, > is the total power required by the main 
( mr ) - , 

Tft-lb, ^ 



rotor 



sec 



is the tail length, the distance from the center 
of the main rotor system to the center of the 
tailrotor system (ft) 

P_ is the total power required by the main rotor 



in forward flight 



ft-lb. 



sec 



V, 



is the forward velocity of the helicopter (ft/sec) 

^Ib-sec^ 



is the density of the air 



ft 
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3 . FLOWCHART 



Start 




next page ->■ 
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5s 



.■=s 




I 





at Label "PJ" 



"PI 



If 



4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 

Find the tailrotor power requirements for an SH-3H, Sea King, 
conducting a "LAMPS" mission while hovering above the surface 
of the ocean under the following flight conditions : 

W = 18,650 lbs 
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h = 54 ft 



D.A. = 0 ft 
= 36.6 ft 

Main Rotor Data: Tail Rotor Data: 



C = 1.52 ft 


C = 0.61 ft 


R = 31 ft 


R = 5.3 ft 


b = 5 


b = 5 


C, = .0095 
*^o 

a = 20 3 RPM-> 21.26 rads 

sec 


Co = .0105 
^o 

n = 1243 RPM^ 130.16 rads 

sec 


Keystrokes : 


Display : 


[XSQ] [ALPHA] HOVER [ALPHA] 


REC? 


1 [R/S] 


C=? 


1.52 [R/S] 


R=? 


31 [R/S] 


b=? 


5 [R/S] 


CdO=? 


.0095 [R/S] 


RV=? 


21.26 [R/S] 


H=? 


54 [R/S] 


W=? 


18,650 [R/S] 


D .A.=? 


0 [R/S] 


PI= 


[R/S] 


1222.36 


[R/S] 


PI (TL) = 


[R/S] 


1249 .70 


[R/S] 


PI (TL+GE) = 


[R/S] 


1216.90 
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[R/S] 



P0= 



[R/S] 


346.12 


[R/S] 


PT(MR) = 


[R/S] 


1563.02 


[R/S] 


CHANGE? 


0 [R/S] 


0 .00 


[XEQ] [ALPHA] TR [ALPHA] 


TR DATA 



Subroutine "DATA" is about to be executed. This prompt 
tells the user that the tail rotor data should now be 
entered . 



[R/S] 


REC? 


1 [R/S] 


C=? 


.61 [ R/S ] 


R=? 


5.3 [R/S] 


b=? 


5 [R/S] 


CdO=? 


.0105 [R/S] 


RV=? 


130.16 [R/S] 


H=? 


54 [R/S] 


W=? 


18,650 [R/S] 


D .A.=? 


0 [R/S] 


L(TAIL)= 


36.6 [R/S] 


PI= 


[R/S] 


103.08 


[R/S] 


PI (TL) = 


[R/S] 


106.25 


[R/S] 


GE=0 


[R/S] 


PO= 
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[R/S] 


30 .10 


[R/S] 


PT(TR) = 


[R/S] 


136.35 


[R/S] 


PT (MR) = 


[R/S] 


1563.02 


[R/S] 


PT (ACFT) = 


[R/S] 


1699 .37 


[R/S] 


CHANGE? 


1 [R/S] 


C RV b R W 



It is desired at this point to increase the length of the 

tail, Z , from 36.6 to 41.6 feet. To observe what effect 
tr 

this change will have on the tailrotor power requirements 
flag 04 must be set to return to the main program where it 



then becomes possible to change 


. The flowchart for sub- 


routine "CG" depicts this process. 


In order to initiate 


this procedure, pick a variable and 
In this example, b is used: 


input its original value 


[/x] 


b=? 


5 [R/S] 


CHA2JGE? 


0 [R/S] 


L(TAIL)=? 


41.6 [R/S] 


PI= 


[R/S] 


85 .07 


[R/S] 


PI(TL)= 


[R/S] 


87.51 


[R/S] 


GE=0 


[R/S] 


PO= 
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[R/S] 



30.10 



[R/S] 


PT(TR) = 


[R/S] 


117.61 


[R/S] 


PT(MR)= 


[R/S] 


1563.02 


[R/S] 


PT(ACFT]= 


[R/S] 


1680 .63 


[R/S] 


CHANGE? 


0 [R/S] 


0.00 



The same SH-3H is now returning to ship with = lOO kts. 



h = 500ft, and = 31.27 ft^ . 

required . 


Find the tailrotor power 


Keystrokes : 


Display : 


[XEQ] [ALPHA] FORFLT [ALPHA] 


FOR V=? 


loo [R/S] 


F.P.A. (FF)=? 


31.27 [R/S] 


REC? 


1 [R/S] 


C=? 


1.52 [R/S] 


R=? 


31 [R/S] 


b=? 


5 [R/S] 


CdO=? 


.0095 [R/S] 


II 

> 


21.26 [R/S] 


H=? 


500 [R/S] 


W=? 


18,650 [R/S] 


D.A.=? 


0 [R/S] 


PI = 
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[R/S] 260.63 

[R/S] PI(TL)= 

[R/S] 266.46 

[R/S] GE=0 

[R/S] PO= 

[R/S] 442.73 

[R/S] PP= 

[R/S] 325.53 

[R/S] PT(MR) = 

[R/S] 1034.71 

[R/S] CHANGE? 

0 [R/S] 0.00 

[XEQ] [ALPHA] TR [ALPHA] TR DATA 

[R/S] REC? 

1 [R/S] C=? 

.61 [R/S] R=? 

5.3 [R/S] b=? 

5 [R/S] CdO=? 

.0105 [R/S] RV=? 

130.16 [R/S] H=? 

500 [R/S] W=? 

18,650 [R/S] D.A.=? 

500 [R/S] L(TAIL) 

36.6 [R/S] PI= 

[R/S] 13.90 

[R/S] PI(TL) = 

149 



[R/S] 


14.25 


[R/S] 


PO= 


[R/S] 


37.31 


[R/S] 


PT(TR) = 


[R/S] 


51.56 


[R/S] 


PT{MR)= 


[R/S] 


1034.71 


[R/S] 


PT(ACFT)= 


[R/S] 


1086 .27 


[R/S] 


CHANGE? 


0 [R/S] 


0.00 



note - the CHANGE? process can be executed as many times as 
the user may desire, but the whole of program ”TR" can only 
be executed once. By examining the flowchart for this pro- 
gram, it can be seen that several main rotor data elements 
are moved about in the storage registers. This is done to 
conserve program memory. Therefore, it becomes necessary 
to go back and execute one of the other main rotor programs 
before again attempting to execute program "TR" in its 
entirity . 



5. PROGRAMS & SUBROUTINES USED 



AD" 


"E CHORD" 


"TL 


CG" 


" GE " 


"TR 


CT" 


"PI" at label "PJ" 


"VI 


DATA" 


"PO" 


"VT 


DN" 


"SD" 
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6 . PROGRAM LISTINGS 



PROGRAM 



01^LBL 


"TR" 


4 5 


02 


"T2 




46 RCL 12 


03 


fiSTO 31 


4 7 * 


04 


RCL 


03 


43 RCL 24 


05 


STO 


23 


49 * 


06 


RCL 


13 


50 RCL 23 


07 


STO 


26 


51 


0S 


"TR 


DfilTfi 


52 Xt2 








53 l.'X 


09 


PROMPT 


54 RCL 30 


1 0 


XEQ 


"DfiT 


55 550 


fl" 






56 


1 1 


1 000 


57 X-t'Z 


12 


STO 


09 


53 * 


13+LBL 


"T2" 


59 RCL 25 


14 


"L< 


TfiIL> 


60 Xt2 


= -*> •• 






61 2 


15 


PROMPT 


62 -••• 


1 6 


STO 


24 


63 STO 00 


17 


RCL 


30 


64 XT 2 


IS 


550 




65 + 


19 






66 SORT 


20 


RCL 


-—V 

c. ^ 


67 RCL 00 


21 






6 £; — 


-p *-• 


RCL 


24 


69 SORT 


23 






70 RCL 10 


24 


STO 


1 0 


71 


25 


:«:eq 


ft D •• 


72 550 


2 6 


XEQ 


■■ V T " 


73 


27 


XEQ 


"CT" 


74 ••PI = " 


2S 


KEQ 


"TL" 


75 PROMPT 


29 


KEQ 


" s ii •• 


76 VIEW X 


30 


XEQ 


.. y j .. 


77 STOP 


31 


RCL 


25 


73 RCL 15 


32 


JO0' 


? 


79 


33 


GTO 


0 1 


30 ■*PI<TL> 


34 


RCL 


10 




35 


RCL 


20 


31 PROMPT 


3 6 






32 VIEW X 


37 


550 




S3 STOP 


33 


y' 




34 STO IS 


39 


XEQ 


"PJ" 


35 RCL 25 


40 


XEQ 


P 0 


36 RCL 26 


41 


GTO 


02 


37 


42^ 


LBL 


01 


S3 XT2 


43 


RCL 


1 1 


39 RCL 26 


44 






90 XT2 
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4. 3 








RCL 


13 


XT2 








1 




+ 




RCL 


13 


3 




VTX 




RCL 


12 






RCL 


1 1 


:4c 




RCL 


07 


:4c 




RCL 


19 


.’4c 




4400 




y' 




:4c 




-PO = 


■ a 


PROMPT 


VIEW 


V 

t\ 


STOP 




STO 


21 


LBL 


02 


RCL 


IS 


RCL 


21 



"PT<TR>= 

PROMPT 
VIEW X 
STOP 
RCL 30 
•■PT<MR> = 

PROMPT 
VIEW X 
STOP 



••PT<flCFT 

PROMPT 
VIEW X 
STOP 

XEQ -CG" 
END 
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AUTO ROTATION 



1. PURPOSE 

This main program computes several values for a single 
rotor helicopter in vertical and forward flight autorotation. 
The computed values are displayed as follows: 



Display : 

W= 

VF(MIN.R.O.D. ) = 
VV(MIN.R.O.D. ) = 



d(HOR. GLIDE) = 



Explanation : 

vertical velocity in a vertical autoro- 
tation (ft/min) 

forward autorotative flight velocity for 
minimum autorotative rate of descent (kts) 
vertical autorotative velocity (ft/min) 
at the forward autorotative flight veloc- 
ity for minimum autorotative rate of 
descent 

horizontal distance travelled on the 
ground at the forward autorotative flight 
velocity for minimum rate of descent (ft) 



2 . EQUATIONS 



= (3K2/K1) 



^d = ^2 

_ ^ (CLVCdM-g 
4 

W 



V = 

V 



.2*p‘An*f- 



(43) 

(44) 

(45) 

(46) 
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f = 



(1 + F) 



(0<F<1) Momenturr. Theory 



- (2F - /Tf) - 

f _ — — (F>1) Glauert Equation 

(4F - 3) 



(47) 



(48) 



= 0.00867 • R • RPM 

f (min ROD) 



(49) 



^v(min ROD) = 0*251 * R * RPM 



(50) 



(hor glide) tany 



(51) 



Y = arcsin — == 16.6° 



(52) 



where ; 



K 



is the average coefficient of lift 
is the average coefficient of drag 
Kj is a real number coefficient called the lift 

coefficient multiplier in drag coefficient terms 
is a real number coefficient equal to 
is the vertical velocity in a vertical autorota- 
tion (ft/min) 

Aj^ is the area of the rotor disc (ft^) 

O' is the solidity of the main rotor system 

lb-sec^ 



V 



V 



ft 



p is the density of the air 

h is the height of the rotor system above the 
ground (ft) 
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is the forward autorotative flight 
f(inin ROD) ^ 

velocity for minimum autorotative rate 
of descent (kts) 

Vv(min ROD) vertical autorotative velocity 

(ft/min) at the forward autorotative 
flight velocity for minimum autorotative 
rate of descent 

d ,, , . , , is the horizontal distance travelled on 

(hor glide) 

the ground (ft) at the forward autoro- 
tative flight velocity for minimum rate 
of descent 

RPM is the rotational velocity of the main rotor 
system in revolutions/minute 
F is a non-dimensional coefficient 

f" is a non-dimensional coefficient 

W is the weight of the helicopter (lbs) 

R is the radius of the rotor system (ft) 

Y is the descent angle for minimum descent 
rate (degrees) 
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OW CHART 



Start 




next page -»• 
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4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 



note - if the display "F=" should appear, an error has been 
made in either the design or the input data itself. This 
will only occur when F<0. Neither this program nor the 



theory used will be able to 
tion . 

For a UH-lH, Iroquois, with 
W = 8,200 lbs 
h = 1,500 ft 
b = 2 

D.A. = 1,500 ft 



calculate results for this situa- 

the following characteristics : 
NACA 0012 Main Rotor Blade: 

R = 24 ft 
C = 1.75 ft 

= .0098 + .0120C^^ 
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= 324 RPM 33.927 radians/sec 



find the rate of descent in a vertical autorotation, V^; the 
forward flight autorotative velocity for minimum rate of de- 
scent, V^, . ; the vertical velocity for the minimiam 

t (min RODj 

rate of descent, V ; and the horizontal glide dis- 

v(min ROD) ^ 

tance travelled during the autorotation, d,. . 

(hor glide) 



Keystrokes : 


Display : 


[XEQ] [ALPHA] AUTO [ALPHA] 


REC? 


1 [R/S] 


C=? 


1.75 [R/S] 


R=? 


24 [R/S] 


b=? 


2 [R/S] 


CdO=? 


.0098 [R/S] 


II 


33.927 [R/S] 


H=? 


1,500 [R/S] 


W=? 


8,200 [R/S] 


D .A.=? 


1,500 [R/S] 


LCM=? 


.012 [R/S] 


VV= 


[R/S] 


2885.69 


[R/S] 


VF(MIN.R.O.D.)= 


[R/S] 


67.92 


[R/S] 


W(MIN.R.O.D.) = 


[R/S] 


2043.85 


[R/S] 


d (HOR. GLIDE) = 


[R/S] 


5031.70 


[R/S] 


CHANGE? 
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It is now desired to increase the weight from 8,200 to 
9,500 lbs: 



1 [R/S] 

[LN] 

9,500 [R/S] 
0 [R/S] 
[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 



C RV b R W 
W=? 

CHANGE? 

VV=? 

3106 .02 

VF(MIN.R.O.D. ) = 
67.42 

W(MIN.R.O.D.) = 
2043.85 
d(HOR. GLIDE )= 
5031.70 
CHANGE? 



It is now desired to decrease the rotor rotational velocity 



from 33.927 to 32.88 radians/second 
1 [R/S] 

[1/x] 

32.88 [R/S] 

0 [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 



This is 314 RPM. 
C RV b R W 
RV=? 

CHANGE? 

VV= 

3106 .02 

VF(MIN.R.O.D.)= 

65.34 

VV(MIN.R.O.D. ) = 
1980 .77 
d(HOR. GLIDE) = 
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[R/S] 



5031.70 



[R/S] 



CHANGE? 



0 [R/S] 



0.00 



note - A reduced rate of descent during a forward flight 
autorotation can be achieved by attaining as low a rotor 
speed as possible without exceeding published limits (stall) . 
Below a certain rotational velocity, rate of descent in- 
creases again, and the higher the weight, the higher the 
RPM at which this reversal occurs. [Ref. 6] Also, the 
forward speed for minimum descent rate is not the same 
foirward speed for maximum glide distance. The forward speed 
for maximum glide distance will be higher than the forward 
speed for minimum descent rate. This "stretching the glide" 
not only results in a longer horizontal glide distance, but 
also results in an increased rate of descent. [Ref. 6] 

5. PROGRAI4S & SUBROUTINES USED 

"AUTO" "DN" 

"AD" "ECHOED " 

"CG" "SD" 

" DATA" 

6. PROGRAM LISTINGS 

PROGRAI4 



01-*-LBL "fiLiT 




O" 



02 CLRG 

03 ■■fll" 

04 fiSTO 31 

05 XEQ "DfiT 



09 +LBL "Rl” 
10 RCL 00 
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Ix'X 






RCL 


07 


:4c 




SORT 




STO 


15 


K-r2 




RCL 


00 


:4c 




RCL 


07 


+ 




xtz 








RCL 


15 


-3 

w 




Y-tX 




:4c 




XEQ 




He 




4 




STO 


14 


X<=0 


-nb 


GTO 


01 


1 




K >0? 




GTO 


02 










-H 




Xt2 




1--X 




RCL 


14 


:4c 




GTO 


03 


LBL 


02 


RCL 


14 


3 




:4c 




SORT 




CHS 




RCL 


14 


o 




:4c 

+ 




RCL 


14 


4 




-+: 





63>LBL 03 


64 


RCL 1 1 


65 


:4c 


66 


XEQ ••OD" 


6 7 


H^: 


63 


1^ 


69 


:4c 


70 


l-'X 


7 1 


RCL 10 


72 


He 


73 


SORT 


74 


60 


75 


He 


7 6 


■ t ^ •• 


77 


PROMPT 


73 


VIEW X 


79 


STOP 


30 


RCL 03 


3 1 


RCL 05 


o 

KJ K— 


:4« 


S3 


. 0327935 


34 


:4c 


35 


•• VF< M I H . 


R. 0. 


D . > = ■• 


86 


PROMPT 


87 


VIEW X 


33 


STOP 


39 


30. 3153 


90 


:4c 


91 


•• VV<MIH. 


R . 0 . 


D. >=•• 


92 


PROMPT 


93 


VIEW X 


94 


STOP 


95 


RCL 09 


96 


. 2931 1 


97 


X 


93 


"d<HOR. G 


LIDE 


:>=■• 


99 


PROMPT 


100 


VIEW X 


101 


STOP 


102 


XEQ "CG" 


1 03 


GTO 04 


104+LBL 01 


105 


•• <• 


106 


ORCL X 


107 


fiVI EW 


103^LBL W4 


1 09 


END 
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TANDEM 



1. PURPOSE 

This main program computes the various power require- 
in terms of horsepower for a tandem rotor aircraft in either 
hovering flight or forward (straight and level) flight. The 
various calculated power requirements are displayed as 
follows : 

Display; Explanation; 

PI(TL)= induced power with tip losses 

PI(TL+GE)= induced power with tip losses plus ground 

effect 

P0= profile power for a single rotor system 

PO(TDM)= profile power for the tandem rotor system 

PT (TDM) = total power for the tandem rotor system 

2 . EQUATIONS 

= Pi + Po 

where ; 

P^ is the total power required 
P^ is the induced power required 
P^ is the profile power required 
P^ is the parasite power required 

No other equations are found in the program. Consult 
the subroutine listings for the various equations used. 
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3 . FLOWCHART 




next page 
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4. 



EXAMPLE PROBLEMS AMD USER INSTRUCTIONS 



Find the hover power requirements for a CH-47D, Chinook, 

under the following conditions: 

C = 2.667 ft Q = 225 RPM ^ 23.56 rads/sec 

R = 30 .0 ft C , = .008 

^o 

b = 3 h = 35 ft 

W = 45,000 lbs D.A. = 1,500 ft 

d = 38.917 ft 



Keystrokes: Display: 

[XEQ] [ALPHA] TANDEM [ALPHA] REC? 

(Rectangular Blade? 1 is Yes, 0 is No) 

1 [R/S] C=? 

2.667 [R/S] R=? 

30 [R/S] b=? 

3 [R/S] CdO=? 

.008 [R/S] RV=? 

23.56 [R/S] H=? 

35 [R/S] W=? 

45,000 [R/S] D.A.=? 

1,500 [R/S] d=? 

38.917 [R/S] HOVER? 

(Execute Hovering Flight Only? 1 is Yes, 0 is No) 
1 [R/S] PI(TL)= 

4,263.48 



[R/S] 

[R/S] 
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PI (TL+GE) = 



[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

(Change Data? 1 is Yes, 0 is No) 
1 [R/S] 



3,957.54 

PO= 

350.46 
PO(TDM) = 

700 .93 
PT (TDM) = 
4,658.47 
CHANGE? 

C RV b R W 



It is desired at this point to increase the number of rotor 
blades per rotor system from 3 to 4. To observe what effect 
this change will have on the hover power requirements, press 
the key on the calculator keyboard directly beneath the var- 
iable in need of change. In this case the [/x] key is di- 
rectly beneath the b in the display: 



[/x] b=? 

4 [R/S] CHATIGE? 



(Any Further Changes? 1 is Yes, 0 is No) 

0 [R/S] d=? 



The calculator has returned to the top of the main program 
and now presents the opportunity to change the distance be- 
tween the rotor shafts, d. In this example, d remains the 



same ; 



38.917 [R/S] 



HOVER? 
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1 [R/S] 


PI (TL) = 


[R/S] 


4,227.80 


[R/S] 


PI (TL+GE) = 


[R/S] 


3,924.43 


[R/S] 


PO= 


[R/S] 


467.28 


[R/S] 


PO(TDM) = 


[R/S] 


934.57 


[R/S] 


PT(TDM) = 


[R/S] 


4,859.00 


[R/S] 


CHANGE? 


0 [R/S] 


0.00 



Find the forward flight (straight and level) power require- 
ments for a CH-46E, Sea Knight, under the following flight 
conditions : 



C = 1.5625 ft 
R = 25.5 ft 
b = 3 

W = 22,000 lbs 
d = 33.33 ft 
h = 2,000 ft 



= 264 RPM ->■ 27.64 rads/sec 

C. = .009 
do 

D. A. = 2,000 ft 

= 100 kts 
f^ = 44.3 ft^ 



Keystrokes : 
[R/S] 



Display ; 
REC? 

C=? 



1 [R/S] 
1.5625 [R/S] 
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R=? 



25.5 [R/S] 

3 [R/S] 

.009 [R/S] 

27.64 [R/S] 

2.000 [R/S] 

22.000 [R/S] 

2.000 [R/S] 

33.33 [R/S] 

0 [R/S] 

100 [R/S] 

44.3 [R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

[R/S] 

1 [R/S] 

It is desired at this point t 



b=? 

CdO=? 

RV=? 

H=? 

W=? 

D.A.=? 

d=? 

HOVER? 

FOR V=? 

F.P .A. (FF) =? 

PI (TL)= 

3,235.14 

GE=0 

PO= 

238.65 

PO(TDM)= 

477.30 

PP= 

434.78 
PT(TDM) = 

4,147.22 

CHANGE? 

C RV b R W 
decrease the forward flight 



velocity, V^, from lOO to 50 knots. To observe what effect 
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this change will have on the forward flight power require- 
ments flag 04 must be set to return to the main program 



where it then becomes possible to change V^. The flow- 
chart for subroutine "CG" depicts this process. In order 
to initiate this procedure, pick a variable and input its 
original value. In this example, W is used: 



[LN] 


II 


22,000 [R/S] 


CHANGE? 


0 [R/S] 


d=? 


33.33 [R/S] 


HOVER? 


0 [R/S] 


FOR V=? 


50 [R/S] 


F.P.A. (FF)=? 


44.3 [R/S] 


PI (TL) = 


[R/S] 


3,085.23 


[R/S] 


GE=0 


[R/S] 


PO= 


[R/S] 


203.54 


[R/S] 


PO (TDM) = 


[R/S] 


407.08 


[R/S] 


PP= 


[R/S] 


54.35 


[R/S] 


PT(TDM) = 


[R/S] 


3,546.66 


[R/S] 


CHANGE? 


0 [R/S] 


0.00 
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PROGRAI-IS & SUBROUTINES USED 



■•AD” 


"ECHORD" 


"SD" 


"AE” 


" GE " 


" TANDEM" 


"CG" 


"PI" at label "TJ" 


"TL" 


"CT" 


"PIT" 


" VT" 


’’DATA” 


"PO" 




"DN" 


«pp •» 





PROGRA24 LISTINGS 




PROGRAM 




01+LBL "TflN 


27*LBL 02 


DEM" 


23 XEQ "PIT 


02 CLRG 


• • 


03 "Tl" 


29 XEQ "AD" 


04 fiSTO 31 


30 XEQ "SD" 


05 XEQ "DAT 


31 XEQ "PO" 


ft" 


32 2 


06*LBL "Tl" 


33 * 


07 XEQ "VT" 


34 "PO<TDM> 


0S XEQ "AD" 


= •• 


09 XEQ "CT" 


35 PROMPT 


10 2 


36 VIEW X 


1 1 / 


37 STOP 


12 STO 14 


33 STO 21 


13 XEQ "TL" 


39 RCL 25 


14 XEQ "AE" 


40 X=0? 


15 "HOVER?" 


41 GTO 03 


16 PROMPT 


42 XEQ "PP” 


17 X>0? 


43^LBL 03 


13 GTO 02 


44 RCL 21 


19 "FOR V=? 


45 + 


• i 


46 RCL 13 


20 PROMPT 


47 + 


21 1.68394 


43 ”PT<TDM> 


22 * 




23 STO 25 


49 PROMPT 


24 "F.P.A.< 


50 VIEW X 


FF >= ?" 


51 STOP 


25 PROMPT 


52 XEQ "CG" 


26 STO 26 


53 EHD 
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CHECKS 



1. PURPOSE 

This program performs a short series of checks on 
several important parameters. It is executed immediately 
following the execution of one of the main programs. This 
program recalls and uses data that the previously executed 
program has put into storage. The various parameters that 
are checked are displayed as follows: 



Display : 

SOLID= 

U= 

M(TIP) = 
D.L.= 



Explanation: 

the solidity of the rotor system 
the advance ratio 

the Mach Number at the tip of the advancing 
rotor blade 

the disc loading of the rotor system 



EQUATIONS 




a = /y • 


g^.-R*T( °R) 


(53) 


T(°K) = 


T(°C) + 273.16 


(54) 


II 

O 


T(°K) T 0.5555 


(55) 


M - 


^ ^T 


(56) 


i-n 

T 


a 


' ^T 




(57) 


DISC LOADING = 


(58) 
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whe re : 



T(°C) is the temperature in degrees centigrade 

T(°K) is the temperature in degrees kelvin 

T(°R) is the temperature in degrees rankine 






V, 



V 



is the gravitational constant 



32.174 

Ibg-sec^ 



is the rotor disc area (ft^) 

is the Mach Number at the tip of the advancing 
rotor blade 

is the forward velocity of the helicopter (ft/ sec) 
is the tip speed of the rotor blade (ft/sec) 

53.3 

lb„-°R 
m 



R 


is 


the 


gas constant for air 


53 


W 


is 


the 


weight (lbs) 




U 


is 


the 


advance ratio 




a 


is 


the 


sonic velocity (ft/sec) 


Y 


is 


the 


ratio of specific heats 
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3 . FLOWCHART 



Start 
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4. EXAMPLE PROBLEMS AND USER INSTRUCTIONS 



Execute program "FORELT” for the CH-53E under the following 
characteristics and flight conditions: 



C = 2.44 ft 


= 179 RPM ^ 18.743 rads/sec 


R = 39.5 ft 
b = 7 


= 140 kts 
f^ = 63.57 ft^ 


h = 1000 ft 


C, = .009 
do 


W = 70,000 lbs 


D.A. = 1000 ft 


Keystrokes : 


Display: 


[XEQ] [ALPHA] FORFLT [ALPHA] 


FOR V=? 


140 [R/S] 


F.P.A. (FF)=? 


63.57 [ R/S ] 


REC? 


1 [R/S] 


C=? 


2.44 [R/S] 


R=? 


39.5 [R/S] 


b=? 


7 [R/S] 


CdO=? 


.009 [R/S] 


RV=? 


18.743 [R/S] 


H=? 


1000 [R/S] 


W=? 


70,000 [R/S] 


D.A.=? 


1000 [R/S] 


PI= 


[R/S] 


1662.62 


[R/S] 


PI (TL) = 


[R/S] 


1699.10 


[R/S] 


GE=0 
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[R/S] 


PO= 


[R/S] 


1852.87 


[R/S] 


PP= 


[R/S] 


1763.38 


[R/S] 


PT (MR) = 


[R/S] 


5315.35 


[R/S] 


CHANGE? 


0 [R/S] 


0 .00 



Now, execute program "CHECKS" in order to make a quick 



check on a, u, M^, and Disc Loading. 
13° C 


The temperature is 


Keystrokes ; 


Display : 


[XEQ] [ALPHA] CHECKS [ALPHA] 


SOLID=0 .1376 


[R/S] 


U=0 .3194 


[R/S] 


T=? 


13 [R/S] 


M(TIP)=0 .8783 


[R/S] 


D.L.=14 .2808 


It is important to note here that the 


blade loading is above 



lO Ibs/ft^ . This generates high induced velocities, which 
in turn can make operations in unimproved sites hazardous 
due to flying debris. Also, it becomes increasingly diffi- 
cult to obtain safe autorotational characteristics at these 
higher disc loadings. [Ref. 7] 

The tip Mach Number is above 0.85. This means that the ad- 
vancing rotor blade is entering the transonic flow region 
and shock wave formation will lead to wave drag. 
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Blade stall effects on the retreating rotor blade have 
started prior to this . Therefore the actual horsepower re- 
quired in forward flight will be somewhat higher due to the 
effects of compressibility and blade stall. [Ref. 3] 

5. PROGRAMS & SUBROUTINES USED 
"CHECKS" 

6. PROGRAM LISTINGS 



PROGRAM 



01-*-LBL "CHE 



20 2 
21 + 



02 FIX 4 

03 RCL 19 

04 "SOLID=" 

05 flRCL X 

06 PVIEW 

07 STOP 

08 RCL 25 

09 RCL 13 

1 0 

11 " U= " 

12 PRCL X 

13 fiVIEW 

14 STOP 

15 RCL 25 

16 RCL 13 

17 + 

IS " T = ? •• 




29 ORCL X 

30 fiVIEW 

31 STOP 



32 RCL 10 

33 RCL 12 
3 4 



19 PROMPT 



35 "D.L.= 

36 RRCL X 

37 flVIEW 

38 END 
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